variable initialization I

Smart pascal source code


procedure Test(a: Integer);
var b: Integer = a + 1;
    c: Integer = 20;
    d:= c + 1;
    e: Integer;
begin
  a := 0;
  c := 30;
  var f := 40;
  e := c + f;
  WriteLn(a);
  WriteLn(b);
  WriteLn(c);
  WriteLn(d);
  WriteLn(e);
  WriteLn(f);
end;

var a: Integer := 1;

var b := a + 1;
    a := 10;

var c: Integer := a + 1;

WriteLn(a);
WriteLn(b);
WriteLn(c);

Test(a);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
10
2
11
0
11
30
21
70
40

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Test(a$1) {
   var b = 0,
      b = a$1+1;
   var c = 20;
   var d = 0,
      d = c+1;
   var e = 0;
   var f = 0;
   a$1 = 0;
   c = 30;
   f = 40;
   e = c+f;
   WriteLn(a$1);
   WriteLn(b);
   WriteLn(c);
   WriteLn(d);
   WriteLn(e);
   WriteLn(f);
};
var a = 0,
   b$1 = 0,
   c$1 = 0;

/* <<< main JS >>> */

   a = 1;
   b$1 = a+1;
   a = 10;
   c$1 = a+1;
   WriteLn(a);
   WriteLn(b$1);
   WriteLn(c$1);
   Test(a);