Даны два числа а и б. Определить являются ли они оба положительными

// PascalABC.NET

var

 a, b: integer;

Begin

 WriteLn('Введите два числа');

 ReadLn(a, b);

 if ((a > 0) and (b > 0)) then

   WriteLn('Оба числа являются положительными')

 else

   WriteLn('Одно или несколько из введённых чисел не являются положительными');

End.