Viết chương trình: tính diện tích hình chữ nhật, hình vuông, hình tam giác vuông

Diện tích hình chữ nhật: 

program tinhdientich;
procedure hv(var s, cv, a: real);

        begin
        s:=a*a;

        cv:=4*a;
        end;

Diện tích hình vuông: 

program tinhdientich;
procedure hv(var s, cv, a: real);

 begin
        s:=a*a;

        cv:=4*a;
        end.

Diện tích hình tam giác vuông: 

program tinh dien tich;

procedure TG(var a, b, cv, s: real);

        begin
        cv:=(a+b+c)/2;
        s:=sqrt(cv*(cv-a)*(cv-b)*(cv-c));
begin
write(‘nhap a =’);

readln(a);
write (‘nhap b =’);

readln(b);

write(‘nhap c =’);

readln(c);

end.