program tong_duong;

uses crt;

var A:array[1..1000] of integer;

      n,i,t:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

                     if A[i]>0 then t:=t+A[i];

              end;

       write('Tong cac so duong la: ',t);

       readln;

end.

var A: array[1..250] of integer;

      n, i: byte;

      S: longint;

begin

       write('Nhap n: ');  readln(n); s:=0;

       for i:=1 to n do

              begin

                     write('a[', i, '] = ');  readln(A[i]);

                     if A[i]>0 then s:=s+A[i];

              end;

       write('Tong cac so duong la: ', s);

       readln

end.