Урок №9 Задание 8.3

Урок №9 Задание 8.3

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

program Pr9_83;

var a,b,c:integer;
    x:integer;


begin
  writeln('Введите три числа: ');
  readln(a,b,c);

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

  writeln('max = ',x);

  readln();

end.                 

Консоль:

Введите три числа:
1
2
3
max = 3