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

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

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

var a,b,c:integer;
  b1:boolean;
  b2: boolean;


begin
  readln(a,b,c);
  writeln('chisla a = ',a);
  writeln('chisla b =',b);
  writeln('chisla c =',c);
  b1:= (a>17) and (b>17);
  b2:= c>7;
  writeln(b1 and b2);
  readln();
  end.      

Консоль:

20 20 8
chisla a = 20
chisla b =20
chisla c =8
TRUE