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

Program_dientichtamgiac;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); readln(h);

Write ('Nhap day:'); readln (a);

s := 1/2 * a * h;

writeln('Dien tich tam giac la:',s);

Readln

End.

Xin hay nhất !

*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.