uses crt;
var a,b : real;
const pi=3.14
begin
write('ban kinh la:'); read(a);
write('canh hinh vuong la:'); read(b);
dttron:=a*a*pi;
dtvuong:=b*b;  
write('dien tich hinh tron la:',dttron); 
write('dien tich hinh vuong la:',dtvuong);
if dttron>dtvuong then write('dt hinh tron lon hon') else write('dt hinh vuong lon hon')
readln;
end.