: Để viết chương trình tính diện tích hình thang như dưới đây. Bạn Tuấn đã ghi lại chương trình ra giấy, nhưng cố tình xếp lộn xộn các lệnh và viết sai một số chỗ. Em hãy giúp bạn thay đổi lại trình tự các lệnh và sửa các chỗ sai để được chương trình viết đúng.

          Begin;

           Uses Crt;

Var a,b,h: Integer;

                   S: Real

          Program   hinhthang;

          Writeln(‘DT hinh thang la:’,S);

          Write(‘Hay nhap hai day va chieu cao=’); Readln(a,b,h)

                   S := (a+b)*h/2;

Readln;