var v:array [1..1000] of integer;
    i,j,k,s,n:integer;
    f1:boolean;
    f,g:text;
begin
     assign(f,'mat.in');
     reset(f);
     assign(g,'mat.out');
     rewrite(g);
     readln(f,n);
     s:=0;
     for i:=1 to n do readln(f,v[i]);
     for i:=1 to n-1 do
         for j:=i+1 to n do
             begin
                  f1:=true;
                  for k:=2 to v[i] do
                      if (v[i]mod k=0) and (v[j] mod k=0) then f1:=false;
                  if f1=true then begin
                                      s:=s+1;
                                      writeln(g,v[i],',',v[j])
                                      end;
                  end;
     write(g,'S=',s);
     close(f);
     close(g);
end.