Viết chương trình tính toán trung bình cộng của N số thực

program tinh_toan;

uses crt;

var i,n:integer;

      tb:real;

      a: array [1..10000] of real;

begin

clrscr;

write(‘Nhap n: ‘);readln(n);

tb:=0;

writeln(‘Nhap ‘,n,’ so thuc:’); i:= 1;

while i<= n do

begin 

write(‘so thu ‘,i,’: ‘);readln(a[i]);

tb:=tb+a[i];

i:=i+1;

end;

tb:=tb/n;

writeln(‘TBC cua ‘,n,’ so thuc la : ‘,tb:0:4);

delay(9000);

readln;

end.