Viết chương trình tính diện tích hình thang, diện tích hình vuông, diện tích hình tròn Giúp em với ạ!!!

+S hình thang= 

begin
write(‘Nhap canh day thu nhat: ‘);readln(a);
write(‘Nhap canh day thu hai: ‘);readln(b); 

write(‘Nhap chieu cao: ‘);readln(c);
write(‘Dien tich hinh thang: ‘,(((a+b)/2)*c):0:2);
end;
end;
readln;
end.

+S hình vuông=

begin
write(‘Nhap canh: ‘);readln(a);
write(‘Dien tich hinh vuong la: ‘,a*a);
end;

+S hình tròn=

begin
write(‘Nhap ban kinh: ‘);readln(a);
write(‘Dien tich hinh tron: ‘,(pi*a*a):0:2);
end;

Chúc bạn thành công!