Program kur_3;
uses crt;
var
 al:set of char;
 i: integer;
 st:string;
 c:char;
 b:array [char] of byte;

function UpCase(Ch:Char):Char;
begin
 case Ch of
  'a'..'z':UpCase:=Chr(ord('A')+ord(Ch)-ord('a'));
  'a'..'п':UpCase:=Chr(ord('А')+ord(Ch)-ord('а'));
  'р'..'я':UpCase:=Chr(ord('Р')+ord(Ch)-ord('р'));
 else
  UpCase:=Ch;
 end;
end;

Begin
 clrscr;
 fillchar (b,sizeof (b),0);
 WriteLn('Введите строку слов,признак окончания-точка');
  ReadLn(st);
 i:=1;
 al:=['а' .. 'п', 'р' .. 'я', 'А' .. 'Я'];
 repeat
   st[i]:=UpCase(st[i]);
   if (st[i] in al) then
    inc(b[st[i]]);
    inc(i);
    {st[i]:=UpCase(st[i]);}
 until(i>length(st)) or (st[i]='.');
 for c:=#0 to #255 do
  if b[c]>0 then
   writeln (c,'-',b[c]);
 readkey;
End.