Вводится последовательность из 10 произвольных чисел.Определить сколько раз в последовательности встречается число a

var m:array[1..10] of integer;a,i,k:integer;begink:=0;for i:=1 to 10 doread(m[i]);readln(a);for i:=1 to 10 doif m[i]=a then k+=1;writeln(k);end.