program Ex;
var
i, m, k: integer;
a: array [11275..16328] of integer;
Begin
for k:=11275 to 16328 do
m := a[k];
i := 1;
while i <= m do
begin
if a[k] mod i = 0 then
begin
write(i, ' ');
m := (a[k] div i);
end;
i := i + 1;
end;
if i=5 then
write(a[k]);
end.
Программа, которая ищет среди целых чисел, принадлежащих числовому
отрезку [11275; 16328], числа, имеющие ровно 5 различных делителей. Выведите эти делители для каждого найденного числа в порядке возрастания.
Подскажите, пожалуйста, что не так в программе.
