program PositiveOrNegative;varnum: integer;beginwriteln('Введите число: ');readln(num);
if num > 0 thennum := num + 1elsenum := num - 2;
writeln('Результат: ', num);end.
program PositiveOrNegative;
var
num: integer;
begin
writeln('Введите число: ');
readln(num);
if num > 0 then
num := num + 1
else
num := num - 2;
writeln('Результат: ', num);
end.