В полученной случайным образом последовательности N целых чисел из промежутка [10; 1000] найти числа, у которых ровно 4 делителя.

Const n=?; {Вместо "?" вставить значение}

Var a:array[1 ... n] of integer;

i:integer;

Function del (x:integer) : integer; {Функция для определения кол-ва делителей}

var i, k:integer;

begin

k:=0;

for i:=1 to x do

if (x mod i) = 0 then k:=k+1;

del:=k;

end;

Begin

randomize;

for i:=1 to n do

a[i]:=random[10,1000];

for i:=1 to n do

if del (a[i]) = 4 then write (a[i],' ') ;

End.