闲着没事，就送送分

Question

这阵子工作很忙，没怎么来，前两天问了个问题，得到广大网友的热烈支持，
感激感激，现送分来啦...本虾近日还发现了个小问题，百思不得其解，望诸位帮忙解答解答为盼：有一程序：program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;var
  I, J, K, L: Integer;
begin
  I := 7; J := 0;  //position 1  for K := 1 to 10 do
  begin
    L := I * 4;                         
    Inc(J, L);
  end;
  
  WriteLn(J);
  ReadLn;
end.我想问的是，L := I * 4能不能提到Position1注释的那个位置

Answer 1

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;var
  I, J, K, L: Integer;
begin
  I := 7; J := 0;  //position 1  for K := 1 to 10 do
  begin
    L := I * 4;                         
    Inc(J, L);
  end;
  
  WriteLn(J);
  ReadLn;无论用那种方法都是每次加28当在循环体内的时候，每次加L=i*4=28；(i没有过变化），10次为280当放到循环体外面的时候，第一次l已经有i*4赋值为28，而l为0，相当与10次的28累加也为280

Answer 2

刚才“当放到循环体外面的时候，第一次l已经有i*4赋值为28，而l为0，相当与10次的28累加也为280”这里的l应该为J，特此更正

Answer 3

今天晚上喝多了，别介意我说的话， yuzhantao仁兄，别介意。
喝多了，哎，郁闷啊

Answer 4

原来是用DELPHI的高手啊,久仰久仰

Answer 5

是啊，我也是这么想的，可是我所深爱和深深信赖的dcc32却不是这样想的。