uses crt;
var d:text; a,b:longint;
begin
clrscr;
assign(d,'Dulieu.doc');reset(d);
readln(d,a);
readln(d,b);
close(d);
assign(d,'Ketqua.txt');rewrite(d);
writeln(d,'Chu vi hinh chu nhat: ',(a+b)*2);
writeln(d,'Dien tich hinh chu nhat: ',a*b);
close(d);
end.