При выполнении выдавала ошибку 201, поработал с типами данных, стала выдавать ошибку 215. Программа простая, а как и почему ошибка вылазит- не пойму! Прошу помощи! Тестирую на входных данных 0.3, 0.7, 9
var
n,i:integer;
p,q,x,y,otvet,v:double;
function fact(m:integer):longint;
begin
//if m<=1 then fact:=1
//else fact:=m*fact(m-1);
fact:=1;
for i:=1 to m do
fact:=fact*i;
end;
begin
write('Введите p: ');
readln (p);
write('‚Введите q: ');
readln (q);
write('Введите N: ');
readln (n);
x:=((p+q)*(p+q))/q;
y:=((p+q)*(p+q))/p;
writeln('x=',x);
writeln('y=',y);
otvet:=0;
for i:=1 to n do begin
otvet:=otvet+((x+(y/i))/fact(2*i-1));
end;
writeln('Ответ: F=',otvet:6:3);
readln;
end.