program bai1;
uses crt;
var a:array[1..100] of integer;
n,i,s:integer;
begin
write('nhap n:');
readln(n);
for i;=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
if a[i]>0 then
s:=s+a[i];
write('tong la:',s);
readln;
end.
pascal.