Код:
program Matrix2;
var
i,A,N:integer;
F: array [1..15] of integer;
procedure Factors(A:integer; var N:integer; var F: array [1..15] of integer);
var jj,j:integer;
begin
jj:=1;
while a>1 do
begin
j:=2;
while not((a mod j)=0) do inc(j);
F[jj]:=j;
a:=a div j;
inc(jj);
end;
N:=jj-1;
end;
begin
write('Введите A:');
read(A);
writeln;
Factors(A,N,F);
for i:=1 to N do write(F[i]:3);
end.