Var
n : integer
Begin
Writeln(n);
If n>0 then writeln('число положительное');
If n<0 then writeln('число отрицательное');
If n=0 then writeln('число равно нулю');
End.
