program PositiveOrNegative;
varn: integer;
beginwriteln('Введите число: ');readln(n);
if n > 0 thenwriteln('Число положительное')elsewriteln('Число отрицательное');end.
program PositiveOrNegative;
var
n: integer;
begin
writeln('Введите число: ');
readln(n);
if n > 0 then
writeln('Число положительное')
else
writeln('Число отрицательное');
end.