Составить программу на языке паскаль: ввести 4 числа и вывести большее из них.( срочно)

var a1: integer; a2: integer; a3: integer; a4: integer; max: integer; begin write('Введите число 1='); readln(a1); write('Введите число 2='); readln(a2); write('Введите число 3='); readln(a3); write('Введите число 4='); readln(a4); if (a1>a2) AND (a1>a3) AND (a1>a4) then max:= a1 else if (a2>a3) AND (a2>a4) then max:= a2 else if a3>a4 then max:= a3 else max:= a4; writeln('Наибольшее число=', max); end. Объяснение. Если переменная "а1" больше "а2" и "а3" и "а4", то ее значение сохраняется в "max". Иначе "а1" оказалась НЕ наибольшей, то сравниваться с ней уже нет смысла, по этому, Если переменная "а2" больше "а3" и "а4" , то ее значение сохраняется в "max". Иначе "а2" отже оказалась НЕ наибольшей, и с ней тоже уже нет смысла сравнивать, по этому, Если переменная "а3" больше "а4" , то ее значение сохраняется в "max". Иначе "а4" оказалась наибольшей и ее значение сохраняется в "max".