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

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

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

program project1;

var
  a, b, c, d, x, y: integer;


begin
   writeln('Vvedite pervoe chislo: ');
   readln(a);
   writeln('Vvedite vtoroe chislo: ');
   readln(b);
   writeln('Vvedite tretye chislo: ');
   readln(c);
   writeln('Vvedite tretye chislo: ');
   readln(d);

   x := a;
   if (b > a) then
     x := b;
   y := c;
   if (d > c) then
     y := d;
   if (x > y) then
          writeln('Maximalnoe chislo: ', x)
     else
          writeln('Maximalnoe chislo: ', y);

  readln();
end.