viết chương trình tính tổng n số nhập từ bàn phím giúp mik vs mik cần gấp

program Min;
uses crt;
var tong,i,n:integer;
    A:array[1..1000] of integer;
begin
   clrscr;
   tong:=0;
   writeln('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      writeln('Nhap so hang thu ',i,': '); readln(A[i]);
      tong:=tong+A[i];
   end;
   writeln('Tong cac so la: ',tong);
   readln
end.

Bạn kiểm tra lại chương trình nha :D

var n,i,s:longint;
begin
write('nhap so n=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(' tong n so nguyen la:',s);
readln;
end