Программа паскаль Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры,

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.