Помогите пожалуйста

[Tip]

Pascal abc
Произвести расчёт функции y=1000/n^2+x при n[-1;10] дельта (вроде) n=0.01
Рассчитать число положительных значений, количество значений >1 и произведение значений в диапазоне 1<y<5