Вычислите длину окружности, если площадь круга равна: 1) 28,26 см2; 2) 78,5 дм2

Если я правильно понял условие(Вывести сколько раз в массиве встречается число введенное с клавиатуры), то

for i:=m to n do
if a[i]=x then k:=k+1;

write(k);

П.с. если условие такое как я понял, то переменная USL вообще не нужна.