Условие:
Нажмите для просмотра прикрепленного файла

program lab4zad2;
uses crt;
var
x,S,ss: array[0..100] of real;
i,j:integer; h:real;
begin
writeln('‚ўҐ¤ЁвҐ и Ј');
readln(h);
clrscr;
for j:=1 to 5 do
for i:=1 to 10 do
begin
x[0]:=0;
s[0]:=0;
x[i]:=x[i-1]+h; {x[2] = x[1] + h ; x[3]=x[2]+h}
ss[i]:=exp((1/3)*ln(x[i]));
end;
s[i]:=s[i-1]+ss[i];
writeln(x[i]:2 :2,' ',s[i]:2 :2);
end.
end.