Question

dau coroana!!!!
se da un numar intreg. determinati daca este pozitiv negativ sau egal cu 0.
Program pascal !!!1

Answer 1

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.