Program PascalGuru;
 
Var S : String;  {описание переменных}
    I : Byte;
    C : Byte; {переменная кол-во}
 
Begin
	WriteLn('Введите строку символов: ');
	ReadLn(S); {ввод текстовой строки}
 
	C := 0;  {обнуляем кол-во удвоенных}
	For I := 1 To Length(S) - 1 Do {проход от начала строки до предпоследнего символа}
	Begin
		If S[I] = S[I+1] Then  {если текущий символ равен следующему}
		Begin
			If C = 0 Then  {сначала выводим "Удвоенные символы в строке"}
			Write ('Удвоенные символы в строке: ');
      Inc(C); {кол-во удвоенных увеличиваем на +1}
			Write (S[I],' '); {выводим текущий символы}
		End;
		{---конец прохода}
 
	End;
	WriteLn;      {ниже вывод результатов }
  Writeln('Исходная строка: ', S);
	WriteLn('Число удвоенных символов в строке: ', C);
	ReadLn;
End.