Объяснение:
var x : Integer;
begin
write('x = '); readln(x);
if x < 0 then writeln('отрицательное') else writeln('положительное');
end.
