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

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

var a,b,c,d:integer;
  begin
    writeln('Vvedite 4 chisla dlya vybora naibolshego: ');
    readln(a,b,c,d);
    if a>b then
      if a>c then
        if a>d then
          writeln(a)
        else
          writeln(d);
    if b>a then
      if b>c then
        if b>d then
          writeln(b)
        else
          writeln(d);
    if c>a then
      if c>b then
        if c>d then
          writeln(c)
        else
          writeln(d);
    readln();
    end.