Паскаль

[Просто человек]

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

[Stilet]

var y,x,n:Double; positive:integer;
begin
 x:=1; n:=-1; positive:=0;
 while n<11 do begin
   y:=1000/(n*n)+x;
   writeln(n:10:2,y:10:2); n:=n+0.01;
   if y>0 then positive:=positive+1;
 end; 
 writeln('положительных: ',positive);
 readln;
end.

Идея уловима?

[Просто человек]

Спасибо большое