viết chương trình tính diện tích tam giác trong pascal

*Tam giác vuông:

uses crt;
var a,b:extended;
begin
   clrscr;
   write(‘Nhap hai canh goc vuong: ‘); readln(a,b);
   writeln(‘S=’,a*b/2:0:2);
   readln
end.

*Tam giác cân:

uses crt;
var a,h:extended;
begin
   clrscr;
   write(‘Nhap canh day, chieu cao: ‘); readln(a,h);
   writeln(‘S=’,a*h/2:0:2);
   readln
end.

*Tam giác vuông cân:

uses crt;
var a:extended;
begin
   clrscr;
   write(‘Nhap a: ‘); read(a);
   writeln(‘S=’,a*a/2:0:2);
   readln
end.

*Tam giác đều:

uses crt;
var a:extended;
begin
   clrscr;
   write(‘Nhap a: ‘); read(a);
   writeln(‘S=’,a*a*sqrt(3)/4:0:2);
   readln
end.

*Tam giác khi biết 3 cạnh (công thức $Heron$):

uses crt;
var a,b,c,p,s:extended;
begin
   clrscr;
   write(‘Nhap a,b,c: ‘); readln(a,b,c);
   p:=(a+b+c)/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   writeln(‘S=’,s:0:2);
   readln
end.

*Tam giác thường:

uses crt;
var a,h:extended;
begin
   clrscr;
   write(‘Nhap canh day, chieu cao: ‘); readln(a,h);
   writeln(‘S=’,a*h/2:0:2);
   readln
end.