program count;

var
  f:file of char;
  st:string;
  li:array [0..256] of integer;
  t:integer;
  ch:char;
  c:byte;

begin
  write('Enter file name: ');
  readln(st);
  assign(f,st);
  reset(f);
  while not eof(f) do
  begin
    read(f,ch);
    t:=t+1;
    li[ord(ch)]:=li[ord(ch)]+1;
  end;
  close(f);
  for c:=0 to 255 do
  begin
     if li[c]/t*100>0 then write(c:3,'-',(li[c]/t)*100:3:1,' ');
  end;
  writeln;
  readln;
end.