Дано число, дать характеристику числа: а) положительное или отрицательное б)четное или нечетное

Если Pascal, то вот:

Program z1;
var a:integer;
begin
Write('Введите число: '); read(a);
if (a>0) then Writeln('Данное число положительное')
else Writeln('Данное число отрицательное');
if (a mod 2=0) then Writeln('Данное число чётное')
else Writeln('Данное число нечётное');
end.