program Tin_hoc;
uses crt;
var n,i,t:integer;
a : array [1..200] of integer;
begin
clrscr;
writeln('Nhap n<=200');readln(n);
while n>200 do begin write('Nhap lai: ');readln(n) end;
writeln('Nhap ',n,' phan tu:');
tong:=0;
for i:= 1 to n do
begin
readln(a[i]);
if a[i] > 0 then tong:=tong+a[i]
end;
writeln('Tong cac phan tu duong la: ',tong);
readln;
end.