Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые; Пример входных данных: 123 121 122 Пример выходных данных: Нет Да Да

Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"): var i,a,d:integer; s:string; begin writeln('Введите трёхзначное число '); read(s); d:=length(s); if d<>3 then write('Это не трёхзначное число!'); if d=3 then if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then write('Да') else write('Нет'); end.   Простой вариант(выводится ошибка если цифр больше или меньше трёх!): var i,a,d:integer; s:string; begin writeln('Введите трёхзначное число '); read(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then write('Да') else write('Нет'); end. Даю 2 варианта, так-как незнаю,проходили ли вы функцию  "length" или нет. Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.