1) определить чётное и нечётное, положительное или отрицательное число.

Var x: Integer;
begin
writeln('Введите число');
readln(x);
if x mod 2=0 then writeln('Число ',x,' - чётное') else
writeln('Число ',x,' - нечётное');
if x>0 then writeln('Число ',x,' - положительное') else
if x<0 then writeln('Число ',x,' - отрицательное') else
writeln('Число ',x,' - неположительное и неотрицательное число')
end.