Юл
Юлия
програмирование на Pascal ABC
(A>1 то прибавить 1), (A<0 то вычесть 2 )(А=0 то заменить его на 10) вывести полученное число
(A>1 то прибавить 1), (A<0 то вычесть 2 )(А=0 то заменить его на 10) вывести полученное число
var
a:integer;
begin
readln(a);
if(a>1) then a:=a+1;
if(a<0) then a:=a-2;
if(a=0) then a:=10;
writeln(a);
end.