Вычислить значение выражения

uses crt;
var i,j,k:integer;
    a,p,sa,sm,r,y:real;
begin
write('a=');
read(a);
if a=0 then
 begin
  write('Значение Y не определено');
  exit
 end;
//цикл for
p:=1;
sa:=1;
for k:=1 to 4 do
 begin
  sa:=sa*a;
  p:=p*sa
 end;
sm:=0;
sa:=a*a*a*a*a;
for j:=6 to 9 do
 begin
  sa:=sa*a;
  sm:=sm+sa
 end;
r:=p*sm;
if r>0 then y:=exp(ln(r)/3)
else if r<0 then y:=-exp(ln(-r)/3);
writeln('Yfor=',y);
//цикл repeat
p:=1;
sa:=1;
k:=1;
repeat
sa:=sa*a;
p:=p*sa;
inc(k)
until k>4;
sm:=0;
sa:=a*a*a*a*a;
j:=6;
repeat
sa:=sa*a;
sm:=sm+sa;
inc(j)
until j>9;
r:=p*sm;
if r>0 then y:=exp(ln(r)/3)
else if r<0 then y:=-exp(ln(-r)/3);
writeln('Yrepeat=',y);
//цикл while
p:=1;
sa:=1;
k:=1;
while k<=4 do
 begin
  sa:=sa*a;
  p:=p*sa;
  inc(k)
 end;
sm:=0;
sa:=a*a*a*a*a;
j:=6;
while j<=9 do
 begin
  sa:=sa*a;
  sm:=sm+sa;
  inc(j)
 end;
r:=p*sm;
if r>0 then y:=exp(ln(r)/3)
else if r<0 then y:=-exp(ln(-r)/3);
writeln('Ywhile=',y);
end.

for j:=6 to 9 do
begin
  sa:=sa*a;
  sm:=sm+sa
 end;

p:=1; //произведение
sa:=1;//a^0
for k:=1 to 4 do
 begin
  sa:=sa*a; //a^k
  p:=p*sa //произведение
 end;
sm:=0;//сумма
//здесь я почему-то не заметил что a^-j, а не a^j
sa:=1/(a*a*a*a*a);//a^-5
for j:=6 to 9 do
 begin
  sa:=sa/a;//a^-j
  sm:=sm+sa//сумма
 end;
r:=p*sm;//произведение под корнем

sm:=0;
sa:=a*a*a*a*a;