Почему выдает ошибку ?помогите исправить

[email protected] в категроии Разное, вопрос открыт 14.06.2017 в 03:43

const n=10;
var a,b,s,x,c,h:real;
f,i:integer;
begin
writeln(' ');
writeln(' x : s');
writeln(' ');
a:=0.1;
b:=1.0;
x:=a;
h:=(b-a)/n;
while x<=b+n do begin
s:=1;
for i:=1 to n do
s:=s+a*c/(f*i);
writeln(x:5:1,'__',s:5:2);
x:=x+h;
end;
readln;
end.
выдает в выоде Nan