program a;
var a:integer;
begin
readln(a);
if a > 0 then a:= a-8;
else a:=a+6;
writeln (a);
end.
Объяснение:
program a;
var a:integer;
begin
readln(a);
if a > 0 then a:= a-8;
else a:=a+6;
writeln (a);
end.
Объяснение: