Массивы

[wOOp]

Задан целочисленный массив размерностью N. Есть ли среди элементов массива простые числа? Если да, то вывести номера этих элементов.

Помогите с данной задачей
Заранее благодарствую!

[Rin]

k:=0;
for i:= 1 to n do
begin
prostoe:=true;
for j:=m[i] div 2 do if m[i] mod j=0 then prostoe:=false;
if prostoe then
begin
 k:=k+1;
 setlength(index_prostih,k);
 index_prostih[k-1]:=i;
end;
ebd;
// осталось вывести массив index_proctih, который является динамическим

[Leshii]

Переменныe уже обьявиш сам ...

function Prost(a:longint):boolean;
var i:longint;
begin
if a<2 then Prost:=false
else
 begin
  Prost:=true;
  for i:=2 to round(sqrt(a)) do
  if a mod i=0 then Prost:=false;
 end;
end;

begin
randomize;
for i:=1 to n do begin
    a[i]:=random(20);
    write(a[i],' ');
end;
writeln;
for i:=1 to n do begin
     if Prost(a[i]) then write(i,' ');
end;
readln;
end.