:написать программу нахождение наибольшего числа из 4 любых. сейчас изучаем паскаль

var

   a1, a2, a3 a4 max: integer;

begin

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

   readln (a1, a2, a3, a4);

   if a1 >= a2 then

       max := a1

   else

       max := a2;

   if a2 > a3 then

       max := a2;

if a3>a4 max then

max:=a4

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

readln

end.