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

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

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

var
   a,b,c,d : integer;

begin
  writeln ('vvedite chislo A ');
  readln(a);
  writeln ('vvedite chislo B ');
  readln(b);
  writeln ('vvedite chislo C ');
  readln(c);
  writeln ('vvedite chislo D ');
  readln(d);
    if ((a>b) and (a>c) and (a>d)) then
       writeln ('Bolshee chislo A ', a);
    if ((b>c) and (b>a) and (b>d)) then
       writeln ('Bolshee chislo B ', b);
    if ((c>a) and (c>d) and (c>b)) then
       writeln ('Bolshee chislo C ', c);
    if ((d>a) and (d>c) and (d>b)) then
       writeln ('Bolshee chislo D ', d);
  readln();
end.