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

Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):

vari,a,d:integer;s:string;beginwriteln('Введите трёхзначное число ');read(s);d:=length(s);if d<>3 thenwrite('Это не трёхзначное число!');if d=3 thenif (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('Да')elsewrite('Нет');end.

Простой вариант(выводится ошибка если цифр больше или меньше трёх!):

vari,a,d:integer;s:string;beginwriteln('Введите трёхзначное число ');read(s);if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('Да')elsewrite('Нет');end.Даю 2 варианта, так-как незнаю,проходили ли вы функцию  "length" или нет.Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.