Информатика 9 класс! ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. пример: введите целое число: введите целое число: 1234 1224 нет. да. я попыталась сделать но вышло вот так: program qq; var a,b,c: integer; begin writeln ('введите целое число: '); read(a); while a< > 0 do begin; b: =a mod 10; a: =a div 10; if c=b then begin writeln('да'); end else c: =b; end; writeln('нет'); readln; end.