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

задача 4 урок 9

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

program zadacha4;
 var a, b, c : integer;       //объявляем переменные
     d1 : boolean;
   begin
     a:=1;
     b:=18;
     c:=89;  //начинаем проверку условий
     d1:= (a>17) and (b>17);   //числа А и В больше 17
      if c>7 then begin   //проверяем истиность С>7
       if d1=true then
       writeln('da')
        else
         writeln('net');
       end else
        writeln('net');
     readln();
   end.