Заполнить массив из 9 элементов случайными числами в интервале 10;150 и найти сумму элементов массива у которых вторая с конца цифра нечетная

var a:array [1..9] of integer; i,k,b:integer; begin randomize; writeln('Массив:'); for i:=1 to 9 do begin a[i]:=random(141)+10; write(a[i],' '); end; writeln; for i:=1 to 9 do begin if a[i]<=99 then if ((a[i] div 10) mod 2)<>0 then k:=k+a[i]; if a[i]>99 then begin b:=a[i] div 10; if (b mod 2)<>0 then k:=k+a[i]; end; end; writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k); end.