program ed;</br>
const maxn=10000;</br>
var i,k,x,y:integer;</br>
f:text;</br>
a:array[0..maxn] of integer;</br>
Begin
assign(f,'test.txt');</br>
reset(f);</br>
readln(f,x,y);</br>
while not eof(f) do begin
read(f,k);</br>
inc(a[k-x]);</br>
end;</br>
close(f);</br>
for i:=0 to y-x do
writeln('chislo',i+x,'vstrechalos v massive',a[i],'raz.');</br>
readln;</br>
End.