Вводятся два целых числа. Вывести TRUE/FALSE для утверждений:
Оба числа отрицательные и кратные 5​

Ответ:

Program Z;

var a,b:integer;

BEGIN

     write('Задайте два целых числа: ');

     read(a,b);

     if (a<0) and (b<0) and (a mod 5=0) and (b mod 5=0)

         then write('TRUE') else write('FALSE');

END.

Объяснение: Программа написана на PascalABC

===== PascalABC.NET =====

begin

 var (a, b) := ReadInteger2('Введи пару чисел:');

 Print((a < 0) and (b < 0) and (a mod 5 = 0) and (a mod b = 0))

end.