Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. Например, 1234 - нет; 1224 - да. Обязательно должен присутствовать цикл с предусловием while do. Информатика. 8 класс. Паскаль ABC.

Var n:integer; var b:array[0 ... 9] of boolean; var f:boolean; begin f : = false; readln (n) ; while n > 0 do begin if b[n mod 10] then begin f : = true; break; end else b[n mod 10] : = true; n : = n div 10; end; if f then writeln ('da') else writeln ('net') ; end.