Задача 6(3) Урок 9

link

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

program lesson9_6_3;
var
  a, b, c, x: integer;
begin
  writeln('enter 3 number');
  readln(a, b, c);
  if(a > b) then
      x := a
  else
      x := b;
  if(x > c) then
      writeln(x, ' - max number')
  else
      writeln(c, ' - max number');
  readln();
end.