Составить программу на языке паскаль: ввести 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 (a1gt;a2) AND (a1gt;a3) AND (a1gt;a4) then max:= a1 else if (a2gt;a3) AND (a2gt;a4) then max:= a2 else if a3gt;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".