đây ạ

*HÌNH TAM GIÁC.

 Program Hotboy ;

     Uses crt;

     Var a,b,c,p,S: real;

     Begin

     clrscr;

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

     Write('Nhap canh b:');readln(b);

     Write('Nhap canh c:');readln(c);

     p:=(a+b+c)/2;

     S:= sqrt(p*(p-a)*(p-b)*(p-c));

     Write('Dien tich hinh tam giac la',s:3:6);

     Write('chu vi cua hinh tam giac          la',a+b+c);

     Readln

     End.

*HÌNH CHỮ NHẬT

Uses crt;

Var s, p, a, b: real;

Begin

     Clrscr;

     Write('Nhap chieu dai HCN: '); readln(a);

     Write('Nhap chieu rong HCN: '); readln(b);

     s:=a*b;

     p:=(a+b)*2;

     Writeln('Dien tich HCN la: ',s1:2:0);

     Writeln('Chu vi HCN la: ',p1:2:0);

Readln

End.

*HÌNH VUÔNG

Uses crt;

Var a, s, p: real;

Begin

     Clrscr;

     Write('Nhap canh a = '); readln(a);

     s:=a*a;

     p:=a*4;

     Writeln('Chu vi la: ',p:0:2);

     Writeln('Dien tich la: ',s:0:2);

Readln

End.

*HÌNH TRÒN.

Uses crt;

Var r,s1,c1: real;

Begin

Write('Nhap r = ');

readln(r);

c1:=pi*r*2;

s1:=pi*r*r;

Writeln('Dien tich cua hinh tron la: ',s1);

Writeln('Chu vi cua hinh tron la: ',c1);

Readln

End.

cho mik hay nhất nhé!!!

Hình chữ nhật:

uses crt;
var a,b:longint;
begin
clrscr;
   write('Nhap chieu dai: ');readln(a);
   write('Nhap chieu rong: ');readln(b);
   writeln('Chu vi: ',(a+b)*2);
   writeln('Dien tich: ',a*b);
readln
end.

Hình tam giác:

uses crt;
var a,b,c,h:longint;
begin
clrscr;
   write('Nhap do dai ba canh: ');readln(a,b,c);
   write('Nhap duong cao tuong ung voi canh thu nhat: ');readln(h);
   writeln('Chu vi: ',a+b+c);
   writeln('Dien tich: ',(a*h)/2:0:5);
readln
end.

Hình tròn:

uses crt;
var r:longint;
begin
clrscr;
   write('Nhap ban kinh: ');readln(r);
   writeln('Chu vi: ',r*2*pi:0:2);
   writeln('Dien tich: ',r*r*pi:0:2);
readln
end.