Ответ:

Объяснение:

readln(arr);

for i := 0 to Length(arr) do

if (arr[i] = arr[i+1]) then writeln("Есть две буквы подряд");