program Mang;
uses crt;
var i,n: byte; s: longint; ch: char;
      a : array [1..100] of real;
begin
repeat
 clrscr; readln(n); s:=0;
 for i:=1 to n do
  begin
    write('A[',i:2,']='); readln(a[i]);
    if a[i]>0 then s:=s+a[i];
  end;
 writeln('Tong cac so nguyen duong : ',s);
 writeln('Tiep tuc ! (C/K) ');
   ch:=readkey;
until upcase(ch)='K'
end.