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

uses crt;

var a1, a2, a3, a4, max: integer;

begin write ('Введите четыре числа: ') ;

readln (a1, a2, a3, a4) ;

if a1 > = a2 then

max : = a1 else

max : = a2;

if a3 > max then

max : = a3;

if a4 > max then

max:=a4;

writeln ('Максимальное число - : ', max) ;

readln

end.