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

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

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

program z5;
var a, b, c : integer;
begin
writeln ('vvedite tri chisla:');
readln (a, b, c);
if (a>17)and(b>17)and(c>7) then
writeln('da')
else
writeln('net');
readln();
end.