program p2;
{$APPTYPE CONSOLE}
var s:string;
i,kh,ka,ke,kye,ku,ki,kyi,ko,ky,kyu,kya:integer;
begin
write('Vvedit tekst');
Readln(s);
for i:=1 to length(s) do
case s[i] of
'а','А' : ka:=ka+1;
'е','Е' : ke:=ke+1;
'є','Є' : kye:=kye+1;
'и','И' : ku:=ku+1;
'і','І' : ki:=ki+1;
'ї','Ї' : kyi:=kyi+1;
'о','О' : ko:=ko+1;
'у','У' : ky:=ky+1;
'ю','Ю' : kyu:=kyu+1;
'я','Я' : kya:=kya+1;
end;
kh:=ka+ke+kye+ku+ki+kyi+ko+ky+kyu+kya;
Writeln('kh=',kh);
Writeln('________');
Writeln('|а,А|',ka:2,'|');
Writeln('|е,Е|',ke:2,'|');
Writeln('|є,Є|',kye:2,'|');
Writeln('|и,И|',ku:2,'|');
Writeln('|і,І|',ki:2,'|');
Writeln('|ї,Ї|',kyi:2,'|');
Writeln('|о,О|',ko:2,'|');
Writeln('|у,У|',ky:2,'|');
Writeln('|ю,Ю|',kyu:2,'|');
Writeln('|я,Я|',kya:2,'|');
Writeln('|к г|',kh:2,'|');
Writeln('________');
Readln;
end.