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

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

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

var a, b, c, d, e, f: integer;
begin 
readln(a, b, c, d);
if (a>b) then 
  e:=a
else
  e:=b;
if (c>d) then
  f:=c
else
  f:=d;
if (e>f) then 
  writeln(e)
else
  writeln(d);
end.