Pascal :

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