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

Program n1;var n,i,d1,d2,d3: integer;beginreadln(n);d1:=n div 100;d3:= n mod 10;d2:=(n div 10 )mod 10;if(d1=d2) or (d2=d3) or (d1=d3) then write('Да') else write('Нет');end.