Viết chương trình tính chu vi và diện tích của các hình: Vuông;Tam giác Bn nào làm tốt mik tích điểm cho nha

>> Chu vi hình vuông:

program cv_hinh_vuong;

uses crt;

      var cv, a: real;

begin

      clrscr;

      writeln('Nhap chieu dai canh cua hinh vuong: '); readln(a);

      cv:=4*a;

      writeln('Chu vi hinh vuong la: ', cv);

      readln

end.

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

program DT_hinh_vuong;

uses crt;

      var s, a: real;

begin

      clrscr;

      writeln('Nhap chieu dai canh cua hinh vuong: '); readln(a);

      s:=a*a;

      writeln('Dien tich hinh vuong la: ', s);

      readln

end.

>> Chu vi hinh tam giác:

program cv_htg;

uses crt;

      var cv, a, b, c: real;

begin

      clrscr;

      writeln('Nhap a = '); readln(a);

      writeln('Nhap b = '); readln(b);

      writeln('Nhap c = '); readln(c);

      cv:=a+b+c;

      writeln('Chu vi hinh tam giac la: ', cv);

      readln

end.

>> Diện tích hình tam giác:

program dt_htg;

uses crt;

      var s, a, h: real;

begin

      clrscr;

      writeln('Nhap a = '); readln(a);

      writeln('Nhap h = '); readln(h);

      s:=(a*h)/2;

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

      readln

end.