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

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var a, b, c: integer;
begin
{Пользователь по очереди вводит, а программа по очереди считывает три числа}
  write ('Введите число A: ');
  readln (a);
  write ('Введите число B: ');
  readln (b);
  write ('Введите число C: ');
  readln (c);
  if ((a > 17) and (b > 17) and (c > 7)) then // проверка условия
    writeln ('Да')
  else
    writeln ('Нет');
  readln ();
end. 

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

Введите число A: 65
Введите число B: 44
Введите число C: 44
Да

Введите число A: 4
Введите число B: 45
Введите число C: 3
Нет