virts chươ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 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.

Program hillsnguyen;

Var a,b,h: Real;

Begin

Writeln ('Nhap canh day thu nhat ');

Readln(a);

Writeln ('Nhap canh day thu hai ');

Readln(b);

Writeln ('Nhap chieu cao');

Readln(h);

Writeln('Dien tich hinh thang la', (a+b)*h/2 );  

Readln

End.