Номер §4.4 ПМ 1

В примере сначала в y записывается a. После сравнения с b переменная y содержит наибольшее из a и b; после сравнения с c — наибольшее из a, b и c. Поэтому достаточно добавить четвёртую переменную d в описание и ещё одно сравнение после сравнения с c.

var
  y, a, b, c, d: integer;
begin
  writeln('Нахождение наибольшей из четырёх величин');
  write('Введите a, b, c, d>>');
  readln(a, b, c, d);
  y := a;
  if b >= y then
    y := b;
  if c >= y then
    y := c;
  if d >= y then
    y := d;
  writeln('y=', y)
end.

Каждый if заменяет текущее наибольшее значение, только если очередное число не меньше его. Например, при a = , b = , c = , d = получаем последовательность y: → → → . Следовательно, после четвёртого сравнения y всегда равно наибольшему из четырёх введённых чисел.