program mn; uses crt; var s:set of 'a'..'z'; i:integer; n:string; BEGIN ClrSCr; s:=[]; Write('Stroka:');readln(n); for i:=1 to length(n) do begin if n[i] in s then n[i]:='-' else s:=s+[n[i]]; end; writeln(n); readln; END.