Var a,b,h,S : ........
.
Write('nhap a day lon , b day be, h chieu cao');
Readln(a,b,h);
Sao:=((a+b)/2)*h;
write('dien tich HT là ',S);
.
.
.
Var r,S : real
Write('nhap ban kinh r')
Readln(r);
S:=spr(r)*3.14;
Write'('dien tich hinh tron',S);
(Mình viết phần thân thôi , còn lại bạn gắn vào)