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

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

Пользователь вводит четыре числа, найдите из них максимальное.

var a, b, c, d, max:integer;
begin
  writeln('Input numbers: ');
  readln(a, b, c, d);
  if (((a > b) AND (a > c) AND (a > d) )) then
      max := a
  else if ((b > c) AND (b > d)) then
    max := b
  else if ((c > d)) then
    max := c
else
  max := d;
  writeln(max);
end.