Tính diện tích

Lập trình để tính các công thức toán học thông thường:
- Diện tích hình tròn với bán kính cho từ bàn phím.
- Thể tích hình cầu với bán kính cho từ bàn phím
- Diện tích hình thang, khi cho nhập từ bàn phím đáy lớn, đáy nhỏ và chiều cao                                                                 Giải
Uses crt;
Var shtron,r1,r2,dl,dn,h,vhc,shthang:real;
       hoi :char;
BEGIN
   Clrscr;
   Write('ban hay nhap ban kinh hinh tron R1= ');read(r1);
   Write('ban hay nhap ban kinh hinh cau R2= ');read(r2);
   Write('ban hay nhap day lon hinh thang d1= ');read(dl);
   Write('ban hay nhap day nho hinh thang d2= ');read(dn);
   Write('ban hay nhap chieu cao hinh thang h= ');read(h);
   Shtron:=2*pi*r1;
   Vhc:=4/3*pi*r2*r2*r2;
   Shthang:=((dl+dn)*h)/2;
   Writeln('DT hinh tron ban kinh R = ',r1:3:1,' la S = ',shtron:6:2);
   Writeln('TT hinh cau ban kinh R = ',r2:3:1,' la V = ',vhc:6:2);
   Writeln('DT hinh thang co:',dl:3:1,' ',dn:3:1,' ',h:3:1,' la S = ',shthang:6:2);
   Readln;
END.