хорошо попробую спасибо.
вот вторая задача
program kr3 ;
var a,f,x:real;
i,k,m:integer;
begin writeln('m');
readln(m);
for i:=1 to m do read (a[i], x[i]);
f:=1;
for i:=1 to m do
f:=f*((x[i]+1)/(a[i]-2*x[i]);
writeln('f=',f:4:2);
readln;
end.
паскаль пишет ошибку invalid qualifier в 6-ой строчке. там где a[i]