Первый вариант:

Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
Write('Это число ');
if A > 0 then Write('положительное ')
else Write('отрицательное ');
if A mod 2 = 0 then Write('чётное')
else Write('нечётное')
End.



Второй вариант:

Var
   A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A mod 2 = 0)and(A > 0) then Write('Данное число является целым положительным')
else Write('Это число не является целым положительным')
End.