source.pas

为了实现的编译程序实用

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.