вычислить f (x)=1/x, x не равно 0, приx= -10,-9,...,10 с использованием оператора for

var a,i,x:integer; f:real;begin for x:=-10 to 10 do begin if x <> 0 then   f:=1/x; writeln('f','(',x,')=',f:2:4); end; end.