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

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.