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

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

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.