Написать программу в Паскале, в которой нужно ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Введите натуральное число');  var r:=n.ToString.Pairwise.Where(t->t[0]=t[1]).Any;  if r then Writeln('Есть две одинаковые цифры, стоящие рядом')  else  Writeln('Нет двух одинаковых цифр, стоящие рядом')end.ПримерВведите натуральное число 245005Есть две одинаковые цифры, стоящие рядом