Если я правильно понял условие(Вывести сколько раз в массиве встречается число введенное с клавиатуры), то for i:=m to n do if a[i]=x then k:=k+1; write(k); П.с. если условие такое как я понял, то переменная USL вообще не нужна.