В алфавитном языке племени тумба юмба четыре буквы: 'ы' 'ш' 'ч' и 'о'. Нужно вывести на экран все возможные слова, состоящие из К букв в которых есть по крайней мере две одинаковые буквы, стоящие рядом, подсчитайте кол-во таких слов

var count: integer;

var K:=ReadInteger('Введите K:= ');

procedure p(s : string);

begin

 if length(s) = K then

 begin

   writeln(s);

   inc(count);

 end

 else

   if (length(s) < 2) or (s[2] = 'Ы') then

   begin

     p(s + 'Ы');

     p(s + 'Ш');

     p(s + 'Ч');

     p(s + 'О')

   end;

end;

begin

 count := 0;

 p('');

 writeln('Колличество слов = ', count);

end.