var ch:char;
a:array[''A''..''z''] of integer;
i:integer;
begin
for i:=1 to 52 do
a[ch]:=0;
read(ch);
while ch<>''.'' do
if (ch>=''A'') and (ch<=''z'') then
a[ch]:=a[ch]+1;
read(ch);
end;
for i:=1 to 52 do
if a[ch]>0 then
writeln(ch,''   '',a[ch]);
end;
readln;
end.

要不要空格随你便（反正不在统计范围）
那个“”号是发帖的东西有问题
不是我的责任[em1]