Заполнить массив случайными числами в диапазоне 1000..2000 и подсчитать число элементов, у которых вторая с конца цифра - четная

//Pascal ABC.NET v3.0 сборка 1111Const n=10;Var ar:array[1..n] of integer; i,k:integer;begin randomize; k:=0;  writeln('Array:');   for i:=1 to n do    begin;     ar[i]:=random(1000,2000);     write(ar[i]:6);     ar[i]:=ar[i] div 10;     if not odd(ar[i] mod 10) then inc(k);    end;  writeln;  writeln('Res=',k);end.Пример работы кода:Array:  1812  1641  1666  1305  1624  1385  1463  1376  1941  1188Res=8