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

Program n1; var a,temp: integer; b: boolean; begin readln(a); temp: =-a; b: =false; while a< > 0 do begin if temp=(a mod 10) then  begin b: =true; break; end; temp: = a mod 10; a: =a div 10; end; if b then write('верно') else write('неверно'); end.

рождения 30.05.95

300