Сформировать массив простых множителей заданного числа (программа Паскаль)

Question

Сформировать массив простых множителей заданного числа

Answer 1

type
  mas=array[1..100] of integer;
var
  a:mas;
  n,k,c,i:integer;
begin
  repeat
    write('n=');
    readln(n);
  until n>1;
  c:=0;
  k:=2;
  while n<>1 do
    if n mod k=0 then
      begin
        inc(c);
        a[c]:=k;
        n:=n div k;
      end
    else
      k:=k+1;
  for i:=1 to c do
    write(a[i]:4);
end.