Viết chương trình từ tổng của 1 dãy gồm những số nguyên đc nhập từ bàn phím bằng cách dùng vòng lặp while…do

program bai_2

var n,i,s:integer;
a:array[1..100] of integer;
begin
write(‘Nhap n: ‘);

readln(n);
i:=1;
while i<=n do begin
write(‘Nhap so ‘,i,’: ‘);

readln(a[i]);
s:=s+a [i];
i:=i+1;
end;
writeln(‘Tong cac so do la ‘,s);
readln
end.