Заполнить массив из 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.