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

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

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

var a, b, c, d: integer;
begin
  writeln('Введите три целых числа: ');
  readln(a, b, c);

  if (a > b) and (a > c) then
    writeln('Число ', a, ' максимальное')
  else if (b > c) then
    writeln('Число ', b, ' максимальное')
  else
    writeln('Число ', c, ' максимальное');

  writeln('==========================');

  if (a > b) then
    if (a > c) then
      writeln('Число ', a, ' максимальное.')
    else if (b > c) then
      writeln('Число ', b, ' максимальное.')
    else
      writeln('Число ', c, ' максимальное.')
  else if (b > c) then
    writeln('Число ', b, ' маскимальное.')
  else
    writeln('Число ', c, ' максимальное.');

  writeln('==========================');

  if (a > b) then
    d := a
  else
    d := b;

  if (d > c) then
    writeln('Максимальное число: ', d)
  else
    writeln('Максимальное число: ', c);

  readln();
end.       

Консоль:

Введите три целых числа:
4
6
7
Число 7 максимальное
==========================
Число 7 максимальное.
==========================
Максимальное число: 7

Введите три целых числа:
10
10
8
Число 10 максимальное
==========================
Число 10 маскимальное.
==========================
Максимальное число: 10