Задача 4 урок 9

http://fkn.ktu10.com/?q=node/8539

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

program task4_lesson9;
var
  a,b,c:integer;
begin
  writeln('Enter three integers a,b,c "a" and "b" >17, and "c" > 7 :');
  readln(a,b,c);
  if (a>17) and (b>17) and (c>7) then
     writeln('yes')
  else
    writeln('no');
  readln();
end.