varn,tot,i:Longint; c:char;a,b:array[1..100]of char;f:array[1..100]of boolean;d:array[1..100000]of string;procedure print;vari:longint; s:string;begins:='';for i:=1 to n do begin write(a); s:=s+a; end; writeln; inc(tot);d[tot]:=s;end;function check:boolean;var i:longint; s:stri...