var
  a:array['a'..'z']of integer;
  c:char;
  i:integer;
begin
  fillchar(a,sizeof(a),0);
  read(c);
  while c<>'.' do
    begin
      inc(a[c]);
      read(c);
    end;
  for c:='a' to 'z' do
    if a[c]<>0 then writeln(c,':',a[c]);
end.

var
  s:array[1..6,0..6]of integer;
  i,j,k,l:integer;
begin
  s[1,0]:=5;s[1,1]:=7;s[1,2]:=4;s[1,3]:=8;s[1,4]:=9;s[1,5]:=1;s[1,6]:=5;
  for i:=2 to 6 do
    for j:=1 to 6 do
      s[i,j]:=s[1,(7-i+j)mod 6];
  for i:=1 to 6 do
    begin
      for j:=1 to 6 do write(s[i,j],' ');
      writeln;
    end;
end.
加分啊啊啊！！

高,谢谢了,谢谢大虾!