Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. например, 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.