Dưới đây là chương trình Pascal để nhập vào một dãy số nguyên dương gồm 10 số, trong đó có 5 số nguyên âm. Chương trình sẽ tính tổng của 5 số nguyên dương còn lại. Nếu không đủ 5 số nguyên dương, chương trình sẽ yêu cầu nhập lại.

```pascal
program SumPositiveNumbers;

uses crt;

var
numbers: array[1..10] of Integer;
i, positiveCount, negativeCount, sum: Integer;

begin
clrscr;
while true do
begin
positiveCount := 0;
negativeCount := 0;
sum := 0;

writeln('Nhap vao 10 so nguyen (bao gom 5 so nguyen am):');
for i := 1 to 10 do
begin
readln(numbers[i]);
if numbers[i] > 0 then
Inc(positiveCount)
else if numbers[i] < 0 then
Inc(negativeCount);
end;

if (positiveCount >= 5) and (negativeCount >= 5) then
begin
positiveCount := 0;
for i := 1 to 10 do
begin
if numbers[i] > 0 then
begin
sum := sum + numbers[i];
Inc(positiveCount);
if positiveCount = 5 then
break;
end;
end;
writeln('Tong cua 5 so nguyen duong la: ', sum);
break;
end
else
begin
writeln('Khong du 5 so nguyen duong hoac 5 so nguyen am. Vui long nhap lai.');
end;
end;
readln;
end.
```

Chương trình này sẽ liên tục yêu cầu người dùng nhập lại dãy số nếu không đủ 5 số nguyên dương hoặc 5 số nguyên âm. Khi đủ điều kiện, chương trình sẽ tính tổng của 5 số nguyên dương đầu tiên và hiển thị kết quả.