Задание 6 урок 9 решение 2

С вложенными блоками (без and, все опараторы if должны быть в полной форме).

program project962;
var a,b,c: integer;
  begin
    writeln('Vvedite a b c');
    readln(a,b,c);
      if (a>b) then
     begin
          if (a>c) then
             begin
               writeln('maksimalnoe chislo ',a)
             end
          else if (c>a) then
             begin
                  writeln('maksimalnoe chislo ',c);
     end
     end

  else if (b > a) then
       begin
            if (b > c) then
                 begin
            writeln('maksimalnoe chislo ',b);
            end

  else
       begin
            writeln('maksimalnoe chislo ',c)
       end;
       end;
  readln();
 end.

Консоль:

Vvedite a b c
1
2
3
Maksimalnoe chislo 3