Напишите программу (pascal) , которая находит наибольшее из четырех целых чисел и выводит его на экран.

Var a,b,c,d: integer;
begin
  readln(a,b,c,d);
  if b>a then a:=b;
  if c>a then a:=c;
  if d>a then a:=d;
  writeln('максимальное число: ',a);
end.

15 -4 17 16
максимальное число: 17