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

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

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

var a, b, c, x: integer;

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

  if (a > b) then
    begin
    if (a > c) then
      begin
      if (a > x) then
        writeln('Максимальное число = ', a)
      else
        writeln('Максимальное число = ', x);
      end
    else
      if (c > x) then
        writeln('Максимальное число = ', c)
      else
        writeln('Максимальное число = ', x);
    end
  else
    if (b > c) then
      begin
      if (b > x) then
        writeln('Максимальное число = ', b)
      else
        writeln('Максимальное число = ', x);
      end
    else
      if (c > x) then
        writeln('Максимальное число = ', c)
      else
        writeln('Максимальное число = ', x);

  readln();
end.