Input: a,b,h;
Output: Chu vi, diện tích hình thang;
B1.Nhập a,b,c;
B2.Xuất diện tích;
B3.Xuất chu vi;
Chương trình:
uses crt;
var a,b,c,d,h:longint;
begin
clrscr;
write('a,b,c,d= ');readln(a,b,c,d);
write('h=');readln(h);
writeln('Chu vi: ',a+b+c+d);
writeln('Dien tich: ',H*((A+B)/2):0:2);
readln
end.