Smart pascal source code


var i: Integer := 1;

var f: Float := 1.5;

var r := i + f;
  WriteLn(r);
  WriteLn(FloatToStr(i + f));
  WriteLn(FloatToStr(f + i));

r := i + 1;
  WriteLn(r);
  WriteLn(FloatToStr(i + 1));
  WriteLn(FloatToStr(1 + i));

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
2.5
2.5
2.5
2
2
2
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function FloatToStr$_Float_(i) { return i.toString() }
function FloatToStr$_Float_Integer_(i,p) { return (p==99)?i.toString():i.toFixed(p) }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var i = 0,
   f = 0,
   r = 0;

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

i = 1;
f = 1.5;
r = i+f;
WriteLn(r);
WriteLn(FloatToStr$_Float_(i+f));
WriteLn(FloatToStr$_Float_(f+i));
r = i+1;
WriteLn(r);
WriteLn(FloatToStr$_Float_(i+1));
WriteLn(FloatToStr$_Float_(1+i));