a) 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.
b) Chương trình cho phép tính trung bình cộng của 4 số (số được nhập từ bàn phím)
Program TB_CONG_4_SO;
uses crt;
Var s,a: real;
Begin
clrscr;
S:=0;
Write('Nhap so thu nhat:');readln(a); S:=S+a;
​​Write('Nhap so thu hai:');readln(a); S:=S+a;
​Write('Nhap so thu ba:');readln(a); S:=S+a;
​Write('Nhap so thu tu:');readln(a); S:=S+a;
Writeln('Trung binh cong:',S/4:10:2);
readln
end.