Урок 9 Задача 7

Урок 9 Задача 7

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).

var A, B, C, D, Max: integer;
begin
  readln(A);
  readln(B);
  readln(C);
  readln(D);
  if (A>B) then
     Max:=A
  else
      Max:=B;
  if (C>Max) then
     Max:=C;
  if (D>Max) then
     Max:=D;
  writeln(Max);
  readln();
end.