var a,b:integer;
var p,s:real;
begin
write('a=');
read(a);
write('b=');
read(b);
s:=a*b;
p:=2*(a+b);
write('Площадь равна ',s,' , периметр равен ',p);
end.