Pascal Урок 9 задача 4 Решение

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

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

program U9Z4;
var a,b,c: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  writeln('vedite chislo');
  readln(c);
  if (a>17)and(b>17)and(c>7)then
    writeln('yes')
  else
    writeln('no');

  readln();
end.