uses crt;
const fi='standard.inp';
fo='standard.out';
var f1,f2:text;
a:array[1..100]of integer;
i,j,n,dem,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
readln(f1,a[i]);
{--------------------xu-ly------------------}
for i:=1 to n do
begin
write(f2,a[i],' co so uoc la: ');
dem:=0;
t:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then
begin
dem:=dem+1;
t:=t+j;
end;
writeln(f2,dem.,' tong uoc la: ',t);
end;
close(f1);
close(f2);
readln;
end.

var v,r:text;
i,j,n,tam,k,s:integer;
a:Array[1..100] of integer;
begin
assign(v,'standard.inp');
reset(v);
readln(v,n,k);
for i:=1 to n do read(v,a[i]);
assign(r,'standard.out');
rewrite(r);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]>a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
i:=1;
while i<=n do
begin
s:=0;
 while a[i]=a[i+1] do begin s:=s+1;i:=i+1;end;
 if (s+1)>=k then write(r,a[i],' ');
 i:=i+1;
end;
close(r);
end.