Составить программу на языке паскаль: ввести 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\".