PROGRAM PROGRAM1;
USES
  WinCrt;
VAR
  a : Real;
BEGIN
  Write('Vas broj ');
  Readln(a);
  IF a > 0 THEN
    Writeln('BROJ JE POZITIVAN')
  ELSE
    IF a < 0 THEN
      Writeln('BROJ JE NEGATIVAN')
    ELSE
      Writeln('BROJ JE NULA');
  END.