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

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

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

var a,b,c:integer;
begin
  writeln('Vvedite chislo A: ');
  readln(a);
  writeln('Vvedite chislo B: ');
  readln(b);
  writeln('Vvedite chislo C: ');
  readln(c);
  if ((a>17)and(b>17)and(c>7)) then
    writeln('DA')
  else
    writeln('NET');
  readln();
end.

вывод консоли:

Vvedite chislo A:
20
Vvedite chislo B:
18
Vvedite chislo C:
10
DA

или

Vvedite chislo A:
16
Vvedite chislo B:
10
Vvedite chislo C:
8
NET