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

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

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

program u9z9;
var a,b,c,d: integer;
begin
writeln('vvedite 4 chusla ');
readln(a,b,c,d);
if (a > b) then    // a b
 if (a > c) then    // a b c
  if (a > d) then // a b c d
  writeln(a)
  else // d a b c
   writeln(d)
 else
   if (c > d) then
   writeln(c) // c d a b
   else
   writeln(d)   //  d c b a
else
  if (b > c) then   //    b c a d
   if (b > d) then //      b d c a
   writeln(b)
   else
   writeln(d)
  else
  if(c > d)  then
  writeln(c)
  else
  writeln(d);
readln();

end.