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

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

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

var A, B, C: integer;
bool: boolean;
begin
  readln(A);
  readln(B);
  readln(C);
  if (A>17) then
     if (B>17) then
        if (C>7)then
           bool:=True
        else
            bool:=False
     else
         bool:=False
  else
  bool:=False;
  writeln(bool);
  readln();
end.