Ввести четыре целые числа, найти наибольшее из них. Пример 1 5 4 3 Наибольшее число 5
Напишите код в паскаль, пожалуйста

program n;vara, b, i: integer;beginb:= 0;for i:=1 to 4 do  begin  readln(a);  if a > b then  b:=a;  end;writeln('Наибольшее: ' + b);end.Как это работает?Объявляются три целочисленные (interger) переменные:a - вводимое числоb - самое большое числоi - счётчик циклаПосле запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении)Запускается цикл for с счётчиком iКаждый раз цикл просит ввести пользователя число (а)Дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a>b)Если ведённое число больше, чем самое большое, то переменной b присваивается значение aИ так пока цикл не закончитсяЗатем выводится переменная b, в которой хранится самое большое из введённых чисел.