урок 9 задача 9

урок 9 задача 9

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

program U9Z9;
var

 a, b, c, d: integer;
    begin
      writeln('Введите четыре числа');
      readln(a,b,c,d);

      if (a>b)then
        if(a>c) then
          writeln(a)
        else
          writeln(c)
      else
        if(b>c)then
        writeln(b)
          else
            if (c>d) then
            writeln(c)
              else
              writeln(d);
      readln;
     end.