viết chương trình pascal tính chu vi diện tích hình tam giác và hình tam giác vuông giúp mink vs ạ!

`` Với tam giác thường, ta có 2 cách :

* Cách 1 : công thức toán Herong

Với 3 cạnh a, b, c, ta có :

- Chu vi : \(a+b+c\)

- Diện tích : \(\sqrt{p.(p-a).(p-b).(p-c)} \)

+ Với p = \(\dfrac{a+b+c}{2}\)

⇒ Code :

program CV_S_Hinh_Tam_Giac ;
  uses crt;
    var a, b, c, p, cv, s : real ;
begin
    clrscr;
    write('Nhap canh a: '); readln(a);
    write('Nhap canh b: '); readln(b);
    write('Nhap canh c: '); readln(c);
    cv := (a+b+c) ;
    p := (a+b+c) / 2 ;
    s := sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('Chu vi: ',cv:3:1);
    writeln('Dien tich: ',s:3:1);
    readln ;
end .

* Cách 2 : công thức thường

Với 3 cạnh a, b, c, và đường cao \(h_a\) (đường cao tương ứng cạnh h), ta có :

- Chu vi : \(a+b+c\)

- Diện tích : \(\dfrac{1}{2}.a .\ h_a \)

⇒ Code :

program CV_S_Hinh_Tam_Giac ;
  uses crt;
    var a, b, c, h, cv, s : real ;
begin
    clrscr;
    write('Nhap canh a: '); readln(a);
    write('Nhap canh b: '); readln(b);
    write('Nhap canh c: '); readln(c);
    write('Nhap canh h tuong ung voi a: '); readln(h);
    cv := (a+b+c) ;
    s := 1/2 * a * h;
    writeln('Chu vi: ',cv:3:1);
    writeln('Dien tich: ',s:3:1);
    readln ;
end .

\(\) Tam giác vuông :

Với 2 cạnh góc vuông a, b ta có :

- \(c=\sqrt{a^2+b^2}\)

- Chu vi : \(a+b+c\)

- Diện tích : \(\dfrac{1}{2}.\ a.\ b\)

⇒ Code :

program CV_S_Hinh_Tam_Giac ;
  uses crt;
    var a, b, c, cv, s : real ;
begin
    clrscr;
    write('Nhap canh a: '); readln(a);
    write('Nhap canh b: '); readln(b);
    c := sqrt(a*a + b *b);
    cv := (a+b+c) ;
    s := 1/2 * a * b;
    writeln('Chu vi: ',cv:3:1);
    writeln('Dien tich: ',s:3:1);
    readln ;
end .