Дан массив А целых чисел. Подсчитать в нём
количество элементов, лежащих в диапазоне [0,10].
Помогите пожалуйста.
Заранее благодарю!

uses crt;const n =10;var k,b:byte;var a:array [1..n] of byte;beginb:=0;for k:=1 to n do beginread (a[k]); if (a[k]>-1) and  (a[k]<11) then b:=b+1;end;write(b);end.