Smart pascal source code


type
  TTest = (one, two, three);

{ unit1.pas }
var
  a : array of integer = [1..5];
  b := [one..three, one, three..one];
  i: integer;

Begin
for i in a do
  WriteLn(i);
{ CONSOLE OUTPUT
  1 2 3 4 5
}
a := [5..1];

for i in a do
  WriteLn(i);
  WriteLn('');

{ CONSOLE OUTPUT
  5 4 3 2 1
}

a := [1..3, 5, 3..1];

for i in a do
  WriteLn(i);
  WriteLn('');

{ CONSOLE OUTPUT
  1 2 3 5 3 2 1
}

for i in b do
  WriteLn(b[i].Name);

{ CONSOLE OUTPUT
  one
  two
  three
  one
  three
  two
  one
}

function $EnumToName(s,v) { var r=s[v]; return (r!==undefined)?r:"?" }

      var a = [],
         a = [1, 2, 3, 4, 5].slice();
      var b = [0,0,0,0,0,0,0],
         b = [0, 1, 2, 0, 2, 1, 0];
      var i = 0;
      var a$1 = 0;
      var a$2 = 0;
      var a$3 = 0;
      var a$4 = 0;
      var $temp1;
		for (a$1 = 0, $temp1 = a.length; a$1 < $temp1; a$1++) {
			i = a[a$1];
			WriteLn(i);
		}
  
      a = [5, 4, 3, 2, 1].slice();
      var $temp2;
      for(a$2=0,$temp2=a.length;a$2<$temp2;a$2++) {
         i = a[a$2];
         WriteLn(i);
      }
      WriteLn("");
      a = [1, 2, 3, 5, 3, 2, 1].slice();
      var $temp3;
      for(a$3=0,$temp3=a.length;a$3<$temp3;a$3++) {
         i = a[a$3];
         WriteLn(i);
      }
      WriteLn("");
      for(a$4=0;a$4<=6;a$4++) {
         i = b[a$4];
         WriteLn(($EnumToName(TTest,b[i])));
      }

var TTest = [ "one", "two", "three" ];