Smart pascal source code


  var
    i, lo, hi: Integer;

  lo := 1;
  hi := 3;
  for i := lo to hi do
  begin
    WriteLn(i);
    hi := 1;
    lo := 3;
  end;

  lo := 1;
  hi := 3;
  for i := hi downto lo do
  begin
    WriteLn(i);
    hi := 1;
    lo := 3;
  end;

  { <<< CONSOLE OUTPUTS >>>
    1
    2
    3
    3
    2
    1
  }

      var i = 0;
      var lo = 0;
      var hi = 0;
      lo = 1;
      hi = 3;
      var $temp1;
      for(i=lo,$temp1=hi;i<=$temp1;i++) {
         WriteLn(i);
         hi = 1;
         lo = 3;
      }
      lo = 1;
      hi = 3;
      var $temp2;
      for(i=hi,$temp2=lo;i>=$temp2;i--) {
         WriteLn(i);
         hi = 1;
         lo = 3;
      }
   }