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

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

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

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

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

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