1.  Tính diện tích hình tròn bán kính R
Program  Tenchuongtrinh;
Uses crt;
Var  r,dt:real;

Procedure  Tinh;
  Begin
    Write('Nhap ban kinh hinh tron: '); readln(r);
    dt:=pi*r*r;
    Writeln('Dien tich hinh tron la: ',dt:0:1);
  End;

Begin
         Clrscr;
         Tinh;
         Readln;
End.
2.  Tính diện tích hình tam giác
Program Tenchuongtrinh;
Uses crt;
Var  a,h,dt:real;

Procedure  Tinh;
  Begin
    dt:=(1/2)*a*h;
    Writeln('Dien tich hinh tam giac la: ',dt:0:1);
  End;

Begin
         Clrscr;
         Write('Nhap canh day: '); readln(a);
         Write('Nhap chieu cao tuong ung: '); readln(h);
         Tinh;
         Readln;
End.
3.  Tính diện tích tam giác biết độ dài các cạnh.
Program  Tenchuongtrinh;
Uses  crt;
Var  a,b,c,p,s:real;

Procedure  Tinh;
  Begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('Dien tich hinh tam giac la: ',s:0:1);
  End;

Begin 
         Clrscr;
         Write('Nhap a= '); readln(a);
         Write('Nhap b= '); readln(b);
         Write('Nhap c= '); readln(c);
         If (a<b+c) and (b<a+c) and (c<b+a) then Tinh
           else writeln('Day khong phai la 3 canh cua tam giac');
         Readln;
End.