fie x si y lungimea

Program P1;
var x,y,a,p : integer;
begin
readln (x,y);
p:=2*(x+y);
a:=x*y;
writeln (p);
writeln (a);
end.