Паскаль!

Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221).

Var

n, i:integer;

s:string;

begin

Write ('Введите натуральное число: ') ; Read (n) ;

Str (n, s) ;

for i:=2 to Length (s) do

if s[i]=s[i-1] then begin

Writeln ('Пара одинаковых цифр-соседей ', s[i]) ;

Exit

end;

Writeln ('В числе нет цифр, имеющих таких же соседей')

end.

Пример

Введите натуральное число: 375422453

Пара одинаковых цифр-соседей 2