Задача 7 Урок 9

Задача 7 Урок 9

Пользователь вводит четыре числа, найдите из них максимальное.

program project1;
var a,b,c,d,max,max_iz_2,max_iz_3: integer;
begin
  writeln('vvedite 4 celih chisla: ');
  readln(a, b, c, d);
  if (a > b)then  //сверка 1 и 2
      max_iz_2:= a
    else
      max_iz_2:= b;

  if (max_iz_2 > c)then //сверка с 3
      max_iz_3:= max_iz_2
    else
      max_iz_3:= c;

    if (max_iz_3 > d)then //сверка с 4
        max:= max_iz_3
      else
        max:= d;

  writeln('maximalnoe: ',max);
  readln();
end.