Вычислить значение ряда - PascalABC.NET

Формулировка задачи:

доброго времени суток, господа) такой вопрос.. учусь в 10м классе, дз было: разобрать ряд (в приложении фото) вроде бы код мой верен, но не знаю как пятидесятую степень игрека представить в начале, учитель говорил что вроде как то с циклом можно, если так можно, то как это сделать? . . . . . .

Program RYADDD;
uses crt;
var h,z,m,x,j,k,b,y:real;
i,n,g,v: integer;
begin
readln(y);
readln(x);
readln(n);
h:=0;
v:=50;
z:=1;
m:=100;
j:=1;
k:=2;
for i:=1 to n do
begin
  j:=j*k*(k+1);
  for g:=2 to v do
    begin
    b:=y*y;
    end;
  writeln('b=',b);
  v:=v-1;
  writeln('j=',j);
  writeln('x=',x);
  writeln('m=',m);
  writeln('z=',z);
  writeln();
  h:=h+((z*m*x)/(j-b));
  z:=z*(-1);
  m:=m-2;
  x:=x*x;
  k:=k+2;
  
end;
writeln(h);
end.

заранее спасибо)

Решение задачи: «Вычислить значение ряда»

Листинг программы

a:=y;
y:=-power(y,50);
y:=-y/a;//+y^49

Объяснение кода листинга программы

В данном коде выполняются следующие действия:

Переменной a присваивается значение переменной y.
Значение переменной y вычисляется как отрицательное значение степени y, равное 50.
Значение переменной y вычисляется как отрицательное значение делителя y на переменную a, с учетом остатка, равного 49. Вот пример вычисления последнего выражения: y = -y/a + y^49 Переменная y берется за модуль, возводится в степень 49 и затем делится на переменную a. Результат вычисления умножается на -1, так как в исходном выражении стоит знак минус.