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

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

program zadacha;

var a:string; s:integer;

begin

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

s:=length(a);

writeln(s);

end.

Изъяснение:

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