Pascal
Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст не менее двух раз.

//PascalABC.Net 3.0, сборка 1066const  Lett=['A'..'z'];var  s:string;  f:array['A'..'z'] of byte;  i:integer;  c:char;begin  for c:='A' to 'z' do f[c]:=0;  Write('Введите строку: '); Readln(s);  for i:=1 to Length(s) do    if s[i] in Lett then Inc(f[s[i]]);  for c:='A' to 'z' do    if f[c]>1 then Write(c,' ');  Writelnend.Тестовое решение:Введите строку: The quick brown fox jumps over the lazy doge h o r u