В полученной случайным образом последовательности 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.