Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые. Способ записи выберите самостоятельно.

program x;vars:string;beginreadln(s);if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwriteln('есть') else writeln('нет')end.