Урок 6 задача 13

Урок 6 задача 13

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

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

begin
  writeln('Введи числа A, B, C= ');
  readln(a, b, c);
  readln();
  n:=(A > 17) and ( B > 17) and (C > 17);
  writeln('Результат' , '(A > 17) and (B > 17) and (C > 17)  =  ',n);
  end.