Program Dien_tich_hinh_thang; Uses crt; Var a,b,c:integer; Begin clrscr; write('nhap do dai cua day lon :'); readln(a); write('nhap do dai cua day nho :'); readln(b); write('nhap do dai cua chieu cao :'); readln(c); writeln('tong hai canh day'); writeln(a,'+',b,'=',a+b); writeln('tong hai canh day nhan voi chieu cao'); writeln(a+b,'*',c,'=',(a+b)*c); writeln('dien tich hinh thang'); writeln((a+b)*c,'/',2,'=',((a+b)*c)/2:5:2); readln; End.