вота....НАПИСАЛА
)....проверте...кажетсь...там всё же чегот не так
(
program..;
uses crt;
var
m,j,k,l:integer;
Nx,Kx,x,y,SH,s1,s2:real;
begin
clrscr;
write('Ввод количества шагов M: ');
readln(m);
write('Ввод начального значения X: ');
readln(Nx);
write('Ввод конечного значения X: ');
readln(Kx);
write('Ввод переменной L: ');
readln(L);
SH:=(Kx-Nx)/m;
x:=Nx;
for k:=1 to m do
begin
for j:=l to m do
s1:=s1+sqr(j+x);
s2:=s2+s1+(k-l/k);
x:=x+SH;
end;
y:=l+20*x+s2;
writeln('y = ',y:2:3);
readln;
end.
благодарю за помощ
:tehnari_ ru_102: