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