uses crt;
var dl,ch,n,i,k:integer;
    text,alf,c,sim,buk:string;
    d:array[1..32] of integer;
    label 1;
begin
 clrscr;
 writeln('Введите текст');
 readln(text);
 dl:=length(text);
 alf:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
 clrscr;
 for k:=1 to 32 do
 d[k]:=0;
 for i:=1 to dl do
 begin
  sim:=copy(text,i,1);
  for k:=1 to 32 do
  begin
   buk:=copy(alf,k,1);
   if sim=buk then
   d[k]:=d[k]+1;
  end;
 end;
 for i:=1 to 32 do
 begin
  if d[i]<>0 then
  begin
   gotoxy(i*2+5,15);
   writeln(alf[i]);
   gotoxy(i*2+5,18);
   writeln(d[i]);
  end
 end;
 gotoxy(5,13);
 writeln(text);
end.