for downto

Smart pascal source code


  var
    i: Integer;
  var
    r: Integer = 1;
  for i := 200 downto 0 do begin
    r := i;
  if r < 10 then
    WriteLn('r was ' + IntToStr(r));
  end;
  { <<< CONSOLE OUTPUTS >>>
   r was 9
   r was 8
   r was 7
   r was 6
   r was 5
   r was 4
   r was 3
   r was 2
   r was 1
   r was 0
  }

      var i = 0;
      var r = 0;
      r = 1;
      for(i=200;i>=0;i--) {
         r = i;
         if (r<10) {
            WriteLn(("r was "+r.toString()));
         }
      }