Как сделать последовательность натуральных чисел в Паскале?

[Artpirat]

создать последрвательность натуральных чисел, заканчивающихся нулем (т.е. размерность массива заранее не известен). Вычислить сумму тех из них, порядковые номера которых простые числа.
кусок проверки простости числа сделал. Не знаю как связать это все
Код:

function IsSimple(n:LongInt):boolean;
var i, m:word;
begin
m:=trunc(sqrt);
issimple:=true;
for i:=2 to m do
if (n mod i)=0 then
begin
issimple:=false;
break;
end;
end;

Помогите, пожалуйста

 

[moozooh]

Дано натуральне число п. Обчислити добуток перших п співмножників:
а) 1/2*3/4*5/6...
ПОМОГИТЕ ПОЖАЛУЙСТА....оч оч оч сильно надо...