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