program n1;
var
a :integer;
begin
read(a);
if a>0 then
writeln(a+1);
if a<0 then
writeln(a-5);
if a=0 then
writeln(a+11);
end.
Объяснение:
program n1;
var
a :integer;
begin
read(a);
if a>0 then
writeln(a+1);
if a<0 then
writeln(a-5);
if a=0 then
writeln(a+11);
end.
Объяснение: