подсчитать количество вхождений символов в строке жужжит жужелица жужжит кружится. плиз с решением

Код на Паскале:

program zadacha;

var a:string; s:integer;

begin

a:='Жужжит жужелица жужжит кружится.';

s:=length(a);

writeln(s);

end.

Объяснение:

Берём строковую переменную "a" за строковую, а переменную "s" за целочисленную. "Кладём" в переменную "а" строку "Жужжит жужелица жужжит кружится.", далее в переменную s "кладём" кол-во символов в строке "Жужжит жужелица жужжит кружится." и выводим кол-во символов на экран.