viết phương trình pascal tính diện tích hình thang với các đáy và chiều cao nhập vào từ bàn phím

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.