Дано целое число. Требуется вывести его строку-описание вида «negative even number» (отрицательное четное число), «zero number» (нулевое число), «positive odd number» (положительное нечетное число) и т. д. НА ПАСКАЛЕ!!!

Предыдущий
вопрос Следующий
вопрос

program DescribeNumber;

va
num: Integer;

begi
write('Enter a number: ')
readln(num);

if num > 0 the
begi
if num mod 2 = 0 the
writeln('Positive even number'
els
writeln('Positive odd number')
en
else if num < 0 the
begi
if num mod 2 = 0 the
writeln('Negative even number'
els
writeln('Negative odd number')
en
els
writeln('Zero number')
end.