Урок 9 задача 6 (вариант2)

Пользователь вводит три числа, найдите из них максимальное.
2. С вложенными блоками (без and).

ссылка
Решение

a, b, c: integer;


begin

     writeln('insert namber a - ');
     readln(a);
     writeln('insert namber b - ');
     readln(b);
     writeln('insert namber c - ');
     readln(c);


    if (a > b) then     // Вариант с вложенным оператором
       if (a > c) then
          Writeln(a, 'a-max')
       else
           Writeln(c, 'c-max')
    else
        if (b > c) then
            Writeln(b, 'b-max')
        else
           Writeln(c, 'c-max');

    readln();

end.