•Tính diện tích tam giác:

Program dientichtamgiac;

Var a,b,goc,dientich: Real;

Begin 

        Write('do dai canh thu nhat: '); Readln(a);

 
       Write('do dai canh thu hai: '); Readln(b);

       Write('goc giua hai canh: '); Readln(goc);

      Dientich:=a*b*sin(goc)/2;

     Writeln('Dien tich tam giac la: ',Dientich:0:2);

      Readln;

End.

•Tính diện tích hình vuông:

program dientichhinhvuong;

Uses crt;

Var a,dt : real; 

Begin

        clrscr;

        write('Nhap a= ');

        readln(a);
   
        dt:=a*a;
   
     writeln('Dien tich hinh vuong la  = ',dt:6:2);

    readln

End.

•Tính diện tích hình tròn :

Program dientichhinhtron;

 
 uses crt;

 
var r,s:real;

 
Begin

  clrscr;

 
     writeln(' ban kinh r: ');

 
     readln(r);

    s:=r*r*3.14;

writeln('dien tich hinh tron la: ',dt);
readln

END. 

•Tìm nghiệm của pt bậc 2: (Mình trình bày chi tiết ở trong hình!)

program dientich; 
uses crt; 
var S,a:integer; 
begin 
writeln('nhap a'); 
readln(a); 
S:=a*a; 
writeln('ketqua',S); 
readln; 
end.