TURBO PASCAL не выдаёт результат что делалать?

program lab1;
var
y,s1,s2,s3,s4,s5:real;i,j,k,l,d:integer;
begin
s1:=0;
for l:=j to 6 do s1:=(i+sqr(l)+sqr(i));
s2:=1;
for d:=k to 8 do s2:=(sqr(d)+i);
s3:=0;
for k:=1 to 4 do s3:=(i+s1+s2*i);
s4:=0;
for j:=1 to 4 do s4:=(s4*s3);
s5:=0;
for i:=1 to 4 do s5:=(s5*s4);
y:=(s5*s4*s3);
writeln('y=',s5:6:3);
end.