procedure sm(a,b: integer);
var s: integer;
begin
s:=a+b;
if s<0 then s:=s*(-1);
write('s=',s);
end;
var a,b: integer;
readln(a,b);
sm(a,b);
end.
procedure sm(a,b: integer);
var s: integer;
begin
s:=a+b;
if s<0 then s:=s*(-1);
write('s=',s);
end;
var a,b: integer;
begin
readln(a,b);
sm(a,b);
end.