задача такая
Вводится текст до точки сост из латинских букв. Вывести буквы повторяющиеся более 3 раз.

Кто сможет решите пожалуйста, а то зачет валица!

http://u-antona.vrn.ru/forum/showthread.php?t=240154 куча таких объявлений, обратись полюбому помогут за некоторое вознаграждение и ты сдаешь зачет )

staf07, ты хоть из какого ВУЗа, и с какого факультета?

var s:string;
i,k:integer;
c:char;
B:array['A'..'z'] of integer;
begin
i:=1;
readln(s);
while (s[i]<>'.') and (i<Length(s)) do
begin
inc(B[s[i]]);
inc(i);
end;
for c:='A' to 'z' do
if B[c]>3 then writeln(c);
Readln;
end.
Считает всю латиницу + несколько символов, которые находятся между заглавными буквами и маленькими. Но я думаю это не принципиально
Еслиб нам такие задачи давали на зачет