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

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);readlnend.