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

program two_digits;

var m, m1, n: integer;

//m и m1 - цифры, стоящие в числе рядом.

//Определяются как остатки от деления числа n на 10,

//которое в цикле два раза делиться нацело на 10, и таким

//образом шаг за шагом теряет свои младшие разряды

begin

writeln ('Введите число');

readln (n);

s: = 'No';

m1: = - 1;

while n > 0 do

begin

m: = n mod 10;

if m = m1 then s: = 'Yes';

n: = n div 10;

m1: = n mod 10;

if m = m1 then s: = 'Yes';

n: = n div 10

end;

writeln (s)

end.