uses crt-

vardl,ch,n,i,k:integer-

text,alf,c,sim,buk:string-

d:array[1..32] ofinteger-

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]&lt-&gt-0then

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.