Заполнить массив случайными числами с промежутка 1-100 и определить в массиве е [1..30] , кол-во чисел с одинаковыми цифрами

var a: array[1..100]of integer;

i,e: integer;

begin

for i: =1 to 100 do a[i]: =random(90)+10; {при значениях 0-9 смысл проверки теряется}

for i: =1 to 100 do write(a[i],' ');

for i: =1 to 100 do if a[i] mod 10=a[i] div 10 then inc(e);

writeln;

writeln(e);

end.