Program S_hinh_hoc; Uses crt; Var canhhv,S1:real; chieudai,chieurong,S2:real; bankinh,S3:real; chieucao,canhtg,S4:real; canhdaya,canhdayb,chieucaod,S5:real; chon,shh:char; Begin Clrscr; Writeln('MOI BAN CHON HINH CAN TINH DIEN TICH'); Writeln('A. Hinh vuong'); Writeln('B. Hinh chu nhat'); Writeln('C. Hinh tron'); Writeln('D. Tam giac'); Writeln('E. Hinh thang'); Read(chon); Case shh of 'A': Begin Write('Moi ban nhap canh hinh vuong: '); Readln(canhhv); S1:= canhhv* canhhv; Write('Dien tich cua hinh vuong la: ',S1:6:2); Readln; End; 'B': Begin Write('Moi ban nhap chieu dai HCN: '); Readln(chieudai); Write('Moi ban nhap chieu rong HCN: '); Readln(chieurong); S2:= chieudai * chieurong; Write('Dien tich cua hinh chu nhat la: ',S2:6:2); Readln; End; 'C': Begin Write('Moi ban nhap ban kinh hinh tron: '); Readln(bankinh); S3:= bankinh*bankinh*pi; Write('Dien tich cua hinh tron la: ',S3:6:2); Readln; End; 'D': Begin Write('Moi ban nhap canh hinh tam giac: '); Readln(canhtg); Write('Moi ban nhap chieu cao hinh tam giac: '); Readln(chieucao); S4:= (canhtg * chieucao)/2; Write('Dien tich cua hinh vuong la: ',S1:6:2); Readln; End; 'E': Begin Writeln('Moi ban nhap canh day hinh thang: '); Readln(canhdaya); Readln(canhdayb); Writeln('Moi ban nhap chieu cao hinh thang: '); Readln(chieucaod); S5:= chieucao*((canhdaya+canhdayb)/2); Write('Dien tich cua hinh vuong la: ',S1:6:2); Readln; End; End; Readln; End. `->` Mn xem em bị lỗi chỗ nào vậy ạ :<<