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

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