Viết chương trình nhập từ bàn các số thực a,b, c,d, e và tính trung bình các số đó.

program oken;
uses crt;
var a: array [1..5] of real;
    i: byte;
    s: real;
begin
    clrscr;
    for i:=1 to 5 do
        begin
            write('nhap so thu ',i,': ');
            readln(a[i]);
            s:=s+a[i];
        end;
    writeln('TBC cua 5 so vua nhap: ',s/5:0:3);
    readln;
end.

Program tinh_tb;

Uses crt;

Var a,b,c,d,e,tb: real;

Begin 

Writeln ('nhap a,b,c,d,e:'); 

Readln (a,b,c,d,e);

Tb:=(a+b+c+d+e)/5;

Writeln ('Trung binh cua cac so tren la:',Tb:5:2);

Readln

End.