$a.$

Program Dien_tich_hinh_thang;

Uses Crt;

Var a, b, h: integer;

       S       : real;

Begin

           clrscr;

           Write('Canh_lon_la ='); realn(a);

           Write('Canh_nho_la ='); realn(b);

           Write('Chieu_cao_la'); realn(h);

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

           Writeln('Dien_tich_hinh_thang_la' : S);

           Realn;

           End.

$b.$ Diện tích hình thang là:

Theo công thức: $\dfrac{(a + b). h}{2}$ 

$\rightarrow$ $\dfrac{( 5 + 3) . 2}{2}= 8$ ( cm )

Vậy diện tích hình thang là $8$ $cm$

$@HannLyy$

Program bai1;

uses crt;

var a,b,h: real;

begin

clrscr;

write('nhap a = '); readln(a);

write('nhap b = '); readln(b);

write('nhap h = '); readln(h);

writeln('dien tich hinh thang =' ,(1/2)*h*(a+b):4:2);

readln;

end.