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.
Старт -проснулся - умылся - поел - оделся - заправил кровать - вышел на улицу - сел на автобус - приехал в школу - Снял верхнюю одежду - пошел на занятия - конец
Дз :
Старт - пришел из школы - поел - принес портфель в комнату - сел за стол - открыл дневник - посмотрел сегодняшнюю дату - посмотрел что задали - взял из портфеля учебник с тетрадкой - открыл тетрадь - начал писать - конец