Урок 9 Задача 6 (вариант 3)

Пользователь вводит три числа, найдите из них максимальное.
3. Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

ссылка

Решение

program U9Z6(3);
var
a, b, c: integer;
max2, max3, max: integer;

begin

     writeln('insert namber a - ');
     readln(a);
     writeln('insert namber b - ');
     readln(b);
     writeln('insert namber c - ');
     readln(c);

     if(a > b) then
         max2:=a
     else
         max2:=b;
     if (max2 > c)then
         max3:= max2
     else
         max3:=c;

     max:=max3;
     writeln('max = ',max);
     readln();
end.