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

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

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

program Pr9_6;

var a,b,c:integer;

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

  if (a>17) and (b>17) and (C>7) then
     writeln('Да')
  else
     writeln('Нет');

  readln();
end.                     

Консоль:

Введите три числа:
2
4
6
Нет