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

program n9;var a: integer;beginwriteln('Введите целое число: ');readln(a);if ((a mod 2)=0)then writeln('Это число положительное' )else writeln('Это число отрицательно' )end.