uses crt;
var a:array[1..10] of integer;
t,n,i:integer;
begin
clrscr;
repeat
writeln('Nhap 10 so nguyen (phai co 5 so nguyen duong va 5 so nguyen am):');
n:=0;
t:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]>0 then
inc(n);
end;
if n<5 then
writeln('Khong du 5 so nguyen duong, vui long nhap lai.');
until n>=5;
n:=0;
for i:=1 to 10 do
begin
if (a[i]>0) and (n<5) then
begin
t:=t+a[i];
inc(n);
end;
end;
writeln('Tong cua 5 so nguyen duong la: ',t);
readln;
end.