Question

НА ЯЗЫКЕ ПАСКАЛЯ 1Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. 2Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

Answer 1

1.       
 Program prim1;
Var x:integer;
Begin
x:= какое число или присваивания оператором readln(x)
if x>0 then x+1
writeln ('Полученное число  :,x');
end.
Вроде так