VCT tính các diện tích hình vuông, chữ nhật, tròn, hình thang

Program BTT;
Uses crt;
Const pi=3.14;
Var a,b,h,s,r: extended;
    k: 1..4;
Begin
        Clrscr;
        Writeln('1. Hinh vuong: ');
        Writeln('2. Hinh chu nhat: ');
        Writeln('3. Hinh tron: ');
        Writeln('4. Hinh thang: ');
        Write('Chon hinh can tinh dien tich (1 -> 4): '); Readln(k);

        If k=1 then
        Begin
                Write('Nhap do dai canh: '); Readln(a);
                s:=sqr(a);
        End;

        If k=2 then
        Begin
                Write('Nhap chieu dai va chieu rong: '); Readln(a,b);
                s:=a*b;
        End;

        If k=3 then
        Begin
                Write('Nhap ban kinh: '); Readln(r);
                s:=sqr(r)*pi;
        End;

        If k=4 then
        Begin
                Write('Nhap do dai 2 day: '); Readln(a,b);
                Write('Nhap chieu cao: '); Readln(h);
                s:=(a+b)*h/2;
        End;

        Write('Dien tich cua hinh do la: ',s:0:2);
        Readln
End.