Циклы. Суммы и произведения

const n=25;
var x:integer;
    s,p:real;
begin
p:=1;
s:=2;
for x:=2 to n do
 begin
  s:=s*2;
  p:=p*ln(s)/ln(sqrt(x));
 end;
writeln('В цикле for to do произвление=',p:0:4);
x:=2;
s:=2;
p:=1;
while x<=n do
 begin
  s:=s*2;
  p:=p*ln(s)/ln(sqrt(x));
  x:=x+1;
 end;
writeln('В цикле while do произвление=',p:0:4);
x:=2;
s:=2;
p:=1;
repeat
  s:=s*2;
  p:=p*ln(s)/ln(sqrt(x));
  x:=x+1;
until x>25;
writeln('В цикле repeat until произвление=',p:0:4);
end.

const r=10;
var n,m:integer;
    s:real;
begin
s:=0;
for n:=1 to r do
for m:=1 to r do
s:=s+power(1/(m*m+n)+1/(m+n),2.5);
writeln('В цикле for to do сумма=',s:0:4);
s:=0;
n:=1;
while n<=r do
 begin
  m:=1;
  while m<=r do
   begin
    s:=s+power(1/(m*m+n)+1/(m+n),2.5);
    m:=m+1;
   end;
  n:=n+1;
 end;
writeln('В цикле while do сумма=',s:0:4);
s:=0;
n:=1;
repeat
 m:=1;
 repeat
 s:=s+power(1/(m*m+n)+1/(m+n),2.5);
 m:=m+1;
 until m>r;
 n:=n+1;
until n>r;
writeln('В цикле repeat until сумма=',s:0:4);
end.