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

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

Ссылка

Решение

program U9Z7;
var a,b,c,d: integer;
    max2,max3,max4,max:integer;


begin
  Writeln('Vvedite 4 cisla:');
  readln(a,b,c,d);
  if (a>b) then
     max2:=a
  else
     max2:=b;
  if (max2 > c) then
     max3:=max2
  else
     max3:=c;
    if (max3 > d) then
     max4:=max3
  else
     max4:=d;

  max:=max4;
  Writeln('max chislo - ', max);
  readln();

end.