Pascal Урок 9 Задача 7 Решение

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

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

program U9Z7;
var
a,b,c,d:integer;

begin
writeln('Vedite chislo');
readln(a);
writeln('Vedite chislo');
readln(b);
writeln('Vedite chislo');
readln(c);
writeln('Vedite chislo');
readln(d);
if(a>b)then
  if(a>c)then
    if(a>d)then
      writeln('Bolshe ', a)
    else
      writeln('Bolshe ', d)
  else
     if(c>d)then
      writeln('Bolshe ', c)
     else
      writeln('Bolshe ', d)
else
  if(b>c)then
    if(b>d)then
      writeln('Bolshe ', b)
    else
      writeln('Bolshe ', d)
  else
    if(c>d)then
      writeln('Bolshe ', c)
        else
      writeln('Bolshe ', d);
readln();

end.