Дан одномерный массив n целых чисел.Подсчитать количество вхождений однозначных чисел в данной последовательности.

Программа требует ручного ввода 10 числ var  a: array [1..10] of integer;i , k: integer;begin for i:=1 to 10 do readln(a[i]);k:=0;for i:=1 to 10 doif a[i] div 10 =0 then k:=k+1;writeln(k);end.