Pascal :

var a,b,s:integer;
begin
readln(a,b);
s:=a*2+b*2;
writeln(s);
end.