Программа Паскаль
Пользователь вводит число. Вывести на экран сколько раз в числе встречаются подряд идущие цифры 23

var
  s: string;
  i, n, k: integer;

begin
  Write('Введите число: '); Readln(s);
  k := 0; n := Length(s); i := 1;
  repeat
    if s[i] + s[i + 1] = '23' then begin k := k + 1; i := i + 2 end
    else i := i + 1
  until i >= n;
  Writeln('Количество повторений "23" равно ', k)
end.

Тестовое решение:
Введите число: 546423452323023
Количество повторений "23" равно 4