Smart pascal source code


var b := if False then True;
WriteLn(b);

var i := if b then 1;

var f := if b then Pi;

WriteLn(IntToStr(i));
WriteLn(FloatToStr(f));
WriteLn((if b then 'bug') + '!');

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
False
0
0
!
-----------------------------
{<<<<<<<<< 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 b = false,
   i = 0,
   f = 0;

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

   b = false;
   WriteLn(b);
   i = (b)?1:0;
   f = (b)?3.14159265358979:0;
   WriteLn(i.toString());
   WriteLn(FloatToStr$_Float_(f));
   WriteLn((((b)?"bug":"")+"!"));