Mong mọi người giúp em

Mong mọi người giúp em Mong mọi người giúp em Đề bài Lập trình tính chu vi,diện tích,của các hình chữ nhật,hình vuông, tam giác 3 cạnh a,b,c Chú ý là phải trên cùng 1 chương trình Khó wa Mấy thầy,mấy[.]

Mong người giúp em.Đề bài: Lập trình tính chu vi,diện tích,của hình chữ nhật,hình vng, tam giác cạnh a,b,c.Chú ý phải chương trình.Khó wa Mấy thầy,mấy giúp khơng ?HuHu có j viết thư wa địa hungkt1997@gmail.com chúc bạn giải dc tập may mắn ,hạnh phúc Tại viết khơng sửa lại ? program tinh; uses crt; var a,b,c: real; x:byte; begin clrscr; writeln('nhap hinh muon tinh,neu hinh chu nhat an phim 1,hinh vuong an phim 2,hinh tam giac an phim '); readln(x); if x=1 then writeln('nhap dai canh thu 1'); readln(a); writeln('nhap dai canh thu '); readln(b); writeln('chu vi hinh chu nhat =',(a+b)*2:5:5); writeln('dien tich hinh chu nhat =',a*b:5:10); readln; if x=2 then writeln('nhap dai '); readln(a); writeln('chu vi hinh vuong =',a*4:5:5); writeln('dien tich hinh vuong=',a*a:5:5); readln; if x=3 then writeln('nhap dai canh thu 1'); readln(a); writeln('nhap dai canh thu 2'); readln(b); writeln('nhap dai canh thu 3'); readln(c); writeln('chu vi hinh tam giac =',a+b+c:5:5); writeln('dien tich hinh tam giac =',sqrt((a+b+c)*(a+b)*(a+c)*(b+c)):5:5); readln; end