program cvdt;

uses crt;

var a,b,cv,dt:integer;

begin

clrscr;

writeln('Hay nhap hai canh hinh chu nhat');readln(a,b);

cv:=(a+b)*2;

dt:=a*b;

writeln('Chu vi hinh chu nhat la ',cv);

writeln('Dien tich hinh chu nhat la ',t);

eadln;

end;