Ввести четыре целые числа, отыскать наивеличайшее из их. Пример 1 5

Program n;
var
a, b, i: integer;
begin
b:= 0;
for i:=1 to 4 do
  begin
  readln(a);
  if a gt; b then
  b:=a;
  end;
writeln('Наивеличайшее: ' + b);
end.

Как это работает?
Объявляются три целочисленные (interger) переменные:
a - вводимое число
b - самое большое число
i - счётчик цикла
После пуска программки переменной b присваивается значение 0 (чтоб было с чем сопоставлять при первом значении)
Запускается цикл for с счётчиком i
Каждый раз цикл просит ввести юзера число (а)
Дальше проверяется условие, если введённое число a больше числа, которое записано как самое великое (if agt;b)
Если ведённое число больше, чем самое великое, то переменной b присваивается значение a
И так пока цикл не закончится
Затем выводится переменная b, в которой хранится самое великое из введённых чисел.