Тема 9 задача 4

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

program Project3;
var a,b,c: integer;

begin
writeln(' vvedite celoe chislo pervoe');
readln(a);
writeln('vvedite celoe chislo vtoroe');
readln(b);
writeln('vvedite celoe chislo tretye');
readln(c);
if (b > 17) and ( c > 7)and (a > 17) then
writeln('da')
else writeln('net');
readln;

Результат компиляции

end.