{Bài 3: Viết chương trình nhập chiều dài, chiều rộng hình chữ nhật, bán kính hình tròn. So sánh diện tích của hình chữ nhật và hình tròn.}
program sosanh_dt_ht;
uses crt;
var a,b,r,s1,s2: real;
const pi=3.14;
BEGIN
clrscr;
writeln('So sanh dien tich hinh chu nhat va hinh tron');
write('Nhap chieu dai: '); readln(a);
write('Nhap chieu rong: '); readln(b);
write('Nhap ban kinh: '); readln(r);
s1:=a*b;
s2:=pi*r*r;
if s1>s2 then writeln('Dien tich hinh CN lon hon dien tich ht')
else if s1READLN;
END.