program <numele pe care il pui>;
var x:integer;
begin
writeln('Introdu un numar');
readln(x);
if x:=0 then
begin
writeln('Numarul este egal cu 0');
end;
if x>0 then
begin
writeln('Numarul este pozitiv');
end;
if x<0 then
begin
writeln('Numarul este negativ');
end;
end.
