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