Урок №9 Задание 9

Урок №9 Задание 9

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

program Pr9_9;

var a,b,c,d:integer;

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

  if (a>b) then
    begin
      if (a>c) then
        begin
          if (a>d) then writeln('max=A: ',a)
          else writeln('max=D: ',d);
        end
        else
             if (c>d) then writeln('max=C: ',c)
                else writeln('max=D: ',d);
    end
    else
  if (b>c) then
    begin
      if (b>d) then writeln('max=B: ',b)
      else writeln('max=D: ',d);
    end
    else
        if (c>d) then writeln('max=C: ',c)
           else writeln ('max=D: ',d);
readln();
end.                            

Консоль:

Введите четыре числа:
-4
0
8
15
max=D: 15