Лена на уроке информатики узнала, что в программах можно обрабатывать не только числа, но и буквы. Она решила написать программу, которая находила бы в слове абракадабра количество букв а.

Помоги юной программистке решить задачу, для этого добавь команды и значения в программу.

Pascal
var \(s\), \(a\): string; \(k\), \(i\), \(n\): integer; begin writeln('Ввведи слово'); readln(\(s\)); writeln('Какие буквы будем считать?'); readln(\(a\)); \(n:=\)length(\(s\)); \(k:=\) [ ]; for \(i\) \(:=\) \(1\) to \(n\) do begin if [ ] then [ ]; end; writeln('В слове   ', \(s\), '   ', \(k\), '  букв   ', \(a\)); end.

Протокол

Входные данные

абракадабра

а

Выходные данные

В слове абракадабра [ ] букв а.