source.pas

来自「为了实现的编译程序实用」· PAS 代码 · 共 11 行

PROGRAM TEST;
VAR I,J:INTEGER;
    R: LONG;
BEGIN 
  I:=1; 
  J:=I+5; 
  WHILE I<=10 DO
     BEGIN  R:=J*I; 
             I:=I+1
     END
END.