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

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

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

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

begin
  write('Vvedite pervoe chislo: '); readln(a);
  write('Vvedite vtoroe chislo: '); readln(b);
  write('Vvedite tret`e chislo: '); readln(c);
    if((a>17) and (b>17) and (c>7)) then
       begin
          writeln('YES!');
          readln();
        end else
        begin
          writeln('NO!');
          readln();
        end;
end.