Дано число, дать характеристику числа:

а) положительное или отрицательное

б) четное или нечетное

Если 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.