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

Пишем программу:uses Crt;const YN: array[boolean] of string[3] = (\'No\',\'Yes\');var i: integer; n: string; b: boolean;begin clrscr; writeln(\'N = ?\'); readln(n); b:= false; for i:= 1 to length(n)-1 do if n[i] = n[i+1] then begin b:= true; break end; writeln(YN[b]); readlnend.Программа написана.