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 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 cô giúp mình được không ?HuHu có j viết thư wa địa chỉ hungkt1997@gmail.com và chúc những bạn giải dc bài tập này may mắn ,hạnh phúc Tại sao mình viết như này không đúng và sửa lại như thế nào ?

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 3 '); readln(x);

if x=1 then writeln('nhap do dai canh thu 1');

readln(a);

writeln('nhap do dai canh thu 2 ');

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 do 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 do dai canh thu 1');

readln(a);

writeln('nhap do dai canh thu 2');

readln(b);

writeln('nhap do 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