Нет перегруженной подпрограммы с таким количеством параметров Powerгде ошибки?
var s, p, x: real; l, m, n: integer;
begin
for l := m to n do
begin
p:=p*x/l;
s:=s+p
end;
write('x m n: ');
readln(x, m, n);
if m > n then
begin
l:=n;
n:=m;
m:=l
end;
s:= 0;
p:=power(m - 1);
writeln(s)
end.