PROGRAM main
  BEGIN
    VAR %% can be empty or completely missing
      i, j, k : INTEGER;
    ENDVAR
    j := 0;
    FOR i := 1 TO 100 DO
      j := j + i;
    WRITE(j);
    WRITESP();
    FOR i := 100 DOWNTO 1 DO
        j := j - i;
    WRITE(j);
    WRITELN();
    j := 1;
    i := 1;
    WHILE j < 40000 DO
    BEGIN
      j := j * i;
      i := i + 1;
    END
    WRITE(i);
    WRITESP();
    WRITE(j);
    WRITELN();
    
  END