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

program arr;
var a, b: array [1..30] of integer;
n: integer;
begin
randomize;
for i :integer:= 1 to 30 do
begin
a[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] gt; 0 then
begin
n:= n + 1;
b[n]:= a[i];
write(b[n] : 3)
end;
writeln();
write( Введите номер элемента в новейшей последовательности(lt; , n + 1, ): );
readln(n);
write( , b[n])
end.