Изменения

'''int''' <math>\mathrm{a[1..n] }</math> ''//исходный массив частот всех n символов,встречающихся в тексте" <math>\mathrm{sum}</math> = 0 do sort(<math>\mathrm{a}</math>) ''//сортируем массив по возрастанию'' do <math>\mathrm{a[2] }</math> = <math>\mathrm{a[1]}</math> +<math>\mathrm{a[2]}</math> <math>\mathrm{sum }</math> =+ <math>\mathrm{a[2]}</math> <math>\mathrm{n}</math>-- delete(<math>\mathrm{a[1]}</math>) ''//убираем из массива ненужный элемент и больше его не рассматриваем'' while <math>\mathrm{n}</math>!=1 ''//пока не останется одна частота в массиве'' '''return''' <math>\mathrm{sum}</math>