С помощью оператора цикла for вычислить y

uses crt;
var m,n,i,k:integer;
    s,y:real;
begin
clrscr;
repeat
writeln('Введите m>1 m=');
readln(m);
until m>1;
repeat
writeln('Введите n>2 n=');
readln(n);
until n>2;
y:=1;
for i:=2 to m do
 begin
  s:=0;
  k:=1;
  while k<=n do
   begin
    s:=s+3.5*k+1.2*i;
    k:=2*k;
   end;
  y:=y*ln(s)/ln(10);
 end;
writeln('Произведение=',y:0:3);
y:=0;
for i:=1 to n-2 do
y:=y+(i+n)/(i+m);
write('Сумма=',y:0:3);
readln
end.

uses crt;
var m,n,i,j:integer;
    a,y,s,p:real;
begin
clrscr;
repeat
writeln('Введите целое число n>0 n='); //входной
readln(n);
until n>0;
repeat
writeln('Введите целое число m>2 n='); //входной
readln(m);
until m>2;
write('Введите вещественное число a=');//входной
readln(a);
y:=0;
for i:=1 to n do
 begin
  s:=0;
  for j:=0 to i do s:=s+sqr(i+j);
  y:=y+s
 end;
writeln('Сумма=',y:0:0);{результат целое число} //выходной
y:=1;
for j:=3 to m do
 begin
  p:=1;
  for i:=1 to j do
  p:=p*a;
  y:=y*p
 end;
write('Произведение=',y:0:3);//выходной
readln
end.

uses crt;
var n,m,i,k:integer;
    y,p:real;
begin
clrscr;
repeat
writeln('Введите целое число n>2 n=');
readln(n);
until n>2;
repeat
writeln('Введите целое число m>0 m=');
readln(m);
until m>0;
y:=0;
for k:=2 to n do
 begin
  p:=1;
  for i:=1 to k-1 do
   begin
    p:=p*sin(pi*i/k);
    writeln('i=',i,'  k=',k,'  p=',p:0:3);
   end;
  y:=y+p
 end;
writeln('Первая сумма=',y);
y:=0;
for i:=2 to n*m do
y:=y+exp(cos(pi*i/(8*m)));
writeln('Вторая сумма=',y:0:3);
readln
end.