Viết chương trình tính TB cộng của n số thực (vs n là các số thực đc nhập từ bàn phím ) thực hiện bằng câu lệnh while ...do

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);

readln;

end.

uses crt;
var i,n : integer;
a : array[1..100] of real;
t:real;
begin clrscr;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do t:=t+a[i];
write('Trung binh cong cua n so thuc la :', t/n :3:2);
readln
end.