2."Бесконечное число". Маша называет число бесконечным, если в нем встречается цифра 8 или любая другая цифра встречается больше одного раза. Является ли введенное число бесконечным?

Program Number;

var x: integer; { введенное число } n: byte : = 0; { количество цифр в числе } i, j: byte; { счетчики } xi: array[1 ... 5] of integer; {массив цифр, из которых состоит число}

begin { Ввод исходного числа } readln (x) ; writeln; x : = abs (x) ; / / рассматриваем модуль числа { Разбиение числа на цифры } while (x > 0) do begin n : = n + 1; / / увеличиваем количество цифр xi[n] : = x mod 10; / / вычисляем цифру (остаток от деления на 10) if xi[n] = 8 then / / если встретилась 8, begin writeln ('да') ; / / то число "бесконечное" readln; exit; / / выход из программы end; x : = x div 10; / / изменяем число (целое от деления на 10) end; { Поиск цифр, встречающихся больше одного раза} for i : = 1 to n - 1 do for j : = i + 1 to n do if xi[i] = xi[j] then / / если числа begin writeln ('да') ; / / то число "бесконечное" readln; exit; / / выход из программы end; { Число не явлется "бесконечным" } writeln ('нет') ; end.