Viết chương trình nhập chiều và chiều rộng HCN, bán kính đường tròn. Tính diện tích mỗi hình, thông báo hình nào có diện tích lớn hơn

Program BTT;
Uses crt;
Var a,b,r,s,ss: extended;
Const pi=3.14;
Begin
        Clrscr;
        Write('Nhap chieu dai va chieu rong hinh chu nhat: '); Readln(a,b);
        s:=a*b;
        Write('Nhap ban kinh hinh tron: '); Readln(r);
        ss:=sqr(r)*pi;
        Writeln('Dien tich hinh chu nhat la: ',s:0:2);
        Writeln('Dien tich hinh tron la: ',ss:0:2);
        If s>ss then Write('=> Dien tich hinh chu nhat lon hon')
        Else If ss>s then Write('=> Dien tich hinh tron lon hon')
        Else Write('Dien tich hai hinh bang nhau');
        Readln
End.