Prgram dien_tich_tam_giac;
Uses crt;
Var S,a,b: real;
Begin
         Clrscr;
         Write('Nhap chieu dai canh a');
         Readln(a);
         Write ('Nhap duong cao h');
         Readln(h);
         S:=(a*h)/2;
        Write( 'S dien tich tam giac');
        Readln;
End.

• Chương trình dt hình vuông

Program dien_tich_hinh_vuong ;
Var S, a: real ;
Uses crt;
Begin
        Clrscr;
        Write ('Nhap do dai cua a');
        Readln(a);
        S:=a*a;
        Write(' S hinh vuong la :',S);
        Readln;
End.