Viết chương trình nhập vào n số nguyên dương, tính tổng mảng vừa nhập Giúp mik vs ạ !!!!!

#mình gửi code pascal và c++ ạ

#code pascal 

program cau1;
uses crt;
var i,n,s :integer;
    a: array[1..1001] of integer;
begin
clrscr;
write('nhap so phan tu : ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln('Tong cac phan tu cua mang la : ',s);
readln;
end.

#code c++

#include <bits/stdc++.h>
using namespace std;
int a[1001];
int main()
{
int n,i,s=0;
cin>>n;
for(i=1;i<=n;i++)

   cin>>a[i];

for(i=1;i<=n;i++)
    s=s+a[i];
cout<<s;
return 0;
    }
#nhớ vote cho mình 5 sao và tym , hay nhất nhá