Дано условие. введите целое число с клавиатуры.если это число больше 0,то программа должна выполнить действие «это число отрицательное»,иначе «это число положительное».составьте программный код. 8 и 9.

Program n9;

var a: integer;

begin

writeln('Введите целое число: ');

readln(a);

if ((a mod 2)=0)then writeln('Это число положительное' )

else writeln('Это число отрицательно' )

end.