Tìm một chương trình được viêt bằng ngôn ngữ lập trình Pascal dùng để tính điện tích hình chữ nhật hoặc hình trong hoặc hình thang

HCN:

Program NhatNgu;
Uses crt;
Var a,b,s: extended;
Begin
        Clrscr;
        Write(‘Nhap chieu dai: ‘); Readln(a);
        Write(‘Nhap chieu rong: ‘); Readln(b);
        s:=a*b;
        Write(‘Dien tich hinh chu nhat la: ‘,s:0:2);
        Readln
End.

HTron:

Program NhatNgu;
Uses crt;
Const pi=3.14;
Var r,s: extended;
Begin
        Clrscr;
        Write(‘Nhap ban kinh hinh tron: ‘); Readln(r);
        s:=sqr(r)*pi;
        Write(‘Dien tich hinh tron la: ‘,s:0:2);
        Readln
End.

HThang:

Program NhatNgu;
Uses crt;
Var a,b,h,s: extended;
Begin
        Clrscr;
        Write(‘Nhap do dai day lon: ‘); Readln(a);
        Write(‘Nhap do dai day be: ‘); Readln(b);
        Write(‘Nhap chieu cao: ‘); Readln(h);
        s:=((a+b)*h)/2;
        Write(‘Dien tich hinh thang la: ‘,s:0:2);
        Readln
End.