Составить программу на PASCAL abc нахождение наибольшего из 4 чисел

Предыдущий
вопрос Следующий
вопрос

program abc_max;

var
a, b, c, d, max: integer;

begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);

max := a;

if b > max then
max := b;
if c > max then
max := c;
if d > max then
max := d;

writeln('Наибольшее из введенных чисел: ', max);

end.