var
S,P, a,b:integer;
begin
read(a);
read (b);
P:=(a+b)*2;
write('Периметр:',P); end;
S:=a*b; write('Площадь:',S); end;
end.
var
S,P, a,b:integer;
begin
read(a);
read (b);
begin
P:=(a+b)*2;
write('Периметр:',P); end;
begin
S:=a*b; write('Площадь:',S); end;
end.