begin
readln(a,b);
cv:=(a+b)*2;
s:=a*b;
writeln(a,b);
end.
uses crt;
var d,r,dt,cv:integer;
begin
clrscr;
write('dai='); readln(d);
write('rong='); readln(r);
cv:=(d+r)*2;
writeln('chu vi=',cv);
dt:=d*r;
writeln('dien tich=',dt);
readln;
end.