Программа на языке Pascal, которая определяет, является ли число чётным или нечётным, положительным или неположительным:

program CheckNumber;
var
number: integer;
begin
writeln('Введите число: ');
readln(number);
if number mod 2 = 0 then
writeln('Число ', number, ' чётное')
else
writeln('Число ', number, ' нечётное');
if number > 0 then
writeln('Число ', number, ' положительное')
else if number < 0 then
writeln('Число ', number, ' отрицательное')
else
writeln('Число ', number, ' нулевое');
end.

Программа сначала запрашивает у пользователя ввод числа, затем определяет, является ли число чётным или нечётным, и выводит соответствующее сообщение. Затем программа проверяет, является ли число положительным, отрицательным или нулевым, и также выводит соответствующее сообщение.