Урок №9 Задание 8.2

Урок №9 Задание 8.2

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

program Pr9_82;

var a,b,c:integer;

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

  if (a>b) then
    begin
    if (a>c) then writeln('max=A: ',a)
    end else
      if (b>a) then
        if (b>c) then writeln('max=B ',b)
         else writeln ('max=C: ',c);

readln();

end.

Консоль:

Введите три числа:
5
6
-1
max=B 6