Вводятся два целых числа. вывести 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.