определите является ли заданое число положительным четным числом .соответвующие сообщения выведите на экран

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.