Дан ряд двузначных натуральных чисел. Из него вычёркивают числа, состоящие из одинаковых цифр. Составить алгоритм и описать

program arr;var a, b: array [1..30] of integer;n: integer;beginrandomize;for i :integer:= 1 to 30 dobegina[i]:= random(91) + 9;write(a[i] : 3)end;for i: integer:= 1 to 30 do if a[i] div 10 = a[i] mod 10 then a[i]:= 0;writeln();for i: integer:= 1 to 30 do // создание нового массиваif a[i] > 0 then beginn:= n + 1; b[n]:= a[i]; write(b[n] : 3)end;writeln();write(\' Введите номер элемента в новой последовательности(< \', n + 1, \'): \');readln(n);write(\' \', b[n])end.