Составить подпрограмму для вычисления y=m√x с заданной степенью точности E по итерационной формуле, которую необходимо выбрать. Использовать эту подпрограмму при составлении программы для вычисления значений функции F(x), определенной на отрезке [a, b] в точках x1,x2,...,xn. Программа должна напечатать аргументы и значения функции F(x), сохраняя между ними соответствие.
Функция F(x) и пределы изменения аргументов [a, b] выбираются

yi+1=yi(3/2-yi^2/2x); i=0,1,2,... y0=0,5x x<1.5

F(x)= m√m√x+m√x+m√x
Границы задания: a=1, b=100

программа на паскале:

program xxx;

  var i, n, s : integer;

begin

  write ('введите n =' );

  readln (n);

  s: =0;

  for i: =1 to n do

    s: = s+ sqr(i+1);

  writeln ('сумма =' , s);

  readln

end. 

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.