viết ct Pascal [ nhập vào 1 dãy số nguyên dương gồm 10 số. Trong đó có 5 số nguyên âm. TÍnh tổng 5 số nguyên dương còn lại (nếu ko đủ 5 số nguyên dương, yêu cầu nhập lại) Dùng while...do ] `@c a t`

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.