program ct;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap day lon:');readln(a);

write('nhap day nho:');readln(b);

write('nhap chieu cao:');readln(c);

writeln('tong hai canh day la',a+b);

writeln('tich hai canh day nhan chieu cao',(a+b)*c);

writeln('dien tich hinh thang la:',(a+b)*c/2:4:2);

readln

end.

chúc bạn học tốt

cho mình xin câu trả lời hay nhất nha

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.