Напишите сколько сможете программ для решения вот таких : if1. дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. вывести полученное число. if2. дано целое число. если оно является положительным, то прибавить к нему1 ; в противном случае вычесть из него2.вывести полученное число. if3. дано целое число. если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. вывести полученное число. надо

1.
Var x : longint;
Begin
Readln(x);
if (x>=0) then
x := x+1;
Writeln('Полученное число: ',x);
Readln(x); // Эту строчку можно не писать, но она останавливает программу, чтобы ты мог посмотреть на результат.
end.

2.
Var x : longint;
Begin
Readln(x);
if (x>=0) then
x := x+1
else x:= x-2;
Writeln('Полученное число: ',x);
Readln(x); //Опять же
end.

3.
Var x : longint;
Begin
Readln(x);
if (x>0) then
x := x+1
else if (x<0) then x:=x-2
else x:= 10;
Writeln('Полученное число: ',x);
Readln(x); //Опять же
end.