PROGRAM: Dien_Tich_Hinh_Thang

 Uses crt;

 Var a,b,c,S:Integer;

 Begin;

         clrscr;

         Write('Nhap do dai day be cua hinh thang: '); readln(a);

        Write('Nhap do dai day lon cua hinh thang: '); readln(b);

        Write('Nhap do dai chieu cao cua hinh thang: '); readln(c);

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

        Writeln('Dien tich cua hinh thang la: S,');

        Readln;

End.

uses crt;

var a,b,h,S:integer;

begin

write('nhap canh day 1:');readln(a);

write('nhap canh day 2:');readln(b);

write('nhap duong cao:');readln(h);

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

writeln('Dien tich hinh thang la:',S);

readln;

end.