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

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

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

var a, b, c: integer;
begin
  writeln ('Введите три числа: '); //пояснение для пользователя
  readln (a, b, c); // считывание чисел, введенных пользователем
  if (a > b) then   // сравниваем а и b
  begin             // здесь уже знаем, что а>b
    if (a > c) then   // осталось сравнить а и с
      write (a)       // выводим на экран а, если  а>c
    else
      write (c);      // выводим на экран с в оставшихся случаях, когда с>=а
  end
  else begin   // ложная внешняя ветка, здесь уже знаем, что b>=а
    if (b > c) then // далее по аналогии с истинной внешней веткой сравниваем b и с (вместо а здесь b)
      write (b)
    else
      write (c);
  end;
  writeln (' - максимальное число'); //это пояснение выводится на экран вслед за выведенной на экран переменной
  readln ();
end.

Вывод в консоли:

Введите три числа:
54
2
54
54 - максимальное число