Smart pascal source code


var i, r: Integer;
for i := 1 to 100 do
  r := i;
if r <> 100 then
  WriteLn('r was ' + IntToStr(r));

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
 100
}

function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var i = 0;
var r = 0;

{ <<< MAIN JS >>>}
   for(i=1;i<=100;i++) {
      r = i;
   }
   if (r!=100) {
      WriteLn(("r was "+r.toString()));
   }