Через скрэйдж это объект со скриатами
Неформальный исполнитель - человек => ученик
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>
</h3><h3 />
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
<em><u>Пример в приложении.</u></em>
1580kilobautпо идее должно быть до 1580 килобайтов