Дано трехзначное число

Усложненный вариант (все работает исправно, при вводе больше или меньше 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" или нет. Если нет, то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.