Найти большее из четырёх чисел в Паскале (составить программу)

var a, b, c, d: integer;

function max ( a, b: integer ): integer;begin if a > b then max := a else max := b;end;

begin write ( \'Введите первое число: \' ); readln (a); write ( \'Введите второе число: \' ); readln (b); write ( \'Введите третье число: \' ); readln (c); write ( \'Введите четвертое число: \' ); readln (d); writeln ( \'Наибольшее число среди введённых: \', max (max (a, b), max (c, d) ) );end.