tính hình vuông

Program HINH_VUONG;

uses crt;

Var canh: real;

Begin

     clrscr;

     Write('Nhap do dai canh:');readln(canh);

     Writeln('Chu vi hinh vuong la:',4*canh:10:2);

     Writeln('Dien tich hinh vuong la:',canh*canh:10:2);

     readln

end.

hình tam giác: 

Program TAM_GIAC;

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 tam giac la:',s:10:2);

     readln

end.

hình thang: 

Program CVDT;
Uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

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

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.