program Project6;
{$APPTYPE CONSOLE}
var A:real;
begin
Writeln('Vvedit chyslo');
Readln(A);
if A=0 then writeln('Nul');
if A>0 then writeln('Dodatne');
if A<0 then writeln('Videmne');
readln;
end.