Giải bài tập Tin Tỉnh tổng dương của 1 Dãy Số Nguyên có dạng a1 , a2 , ... an . Mọi người có ai giải giúp đc ko ạ

Program bai_giai;
uses crt;
var a,b,tong,n,i:longint;c:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  tong:=0;
  for i:=1 to n do
        begin
         write('c[',i,']=');readln(c[i]);
         if(c[i]>0)then tong:=tong+c[i];
        end;
  write('tong co so nguyen duong la:',tong);
 readln;
end.

đây nhá bạn

uses crt;
var n,i,sum:Longint;
    a:array[1..1000] of Longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do 
        begin
            read(a[i]);
            if(a[i] > 0) then inc(sum,a[i]);
        end;
    writeln(sum);
readln; readln;
end.