Задача к одномерным массивам.

[kry]

Что то не могу никак решить задачу, с проверкой на простое число выскакивают косяки.

Задача.
Задана последовательность из N вещественных чисел. Вычислить
сумму чисел, порядковые номера которых являются простыми числами.Нужно использовать одномерные массивы, запрещается использование процедур.

[kry]

Просьба знающих людей подумать над задачей, ибо сдавать нужно через 2 часа.

[Tayfun]

С наступающим!!!

program Vesh;
uses crt;
const max_n=100;
var
   n,j,p,i:integer;
   s:real;
   a:array[1..max_n] of real;
begin
   clrscr;
   writeln('Vvedite n');
   readln(n);
   for i:=1 to n do begin {Vvodim massiv}
      writeln('Vvedite ',i,' element');
      readln(a[i]);
   end;
   s:=0;
   for i:=1 to n do begin
      p:=0;
      for j:=2 to i-1 do {Proveryaem prostoe ili net}
         if i mod j=0 then p:=p+1;
      if p=0 then s:=s+a[i]; {Esli prostoe to skladivayem}
   end;
   writeln('Summa=',s:1:4);
   readkey;
end.