format integer

Smart pascal source code


procedure SetXY(const AX, AY, AValue: Integer);
begin
  WriteLn(Format('X = %d, Y = %d, Value = %d', [AX, AY, AValue]));
end;

SetXY(100, 100, StrToInt('12'));

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
X = 100, Y = 100, Value = 12
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
function SetXY(AX, AY, AValue) {
   WriteLn(("X = "+AX.toString()+", Y = "+AY.toString()+", Value = "+AValue.toString()));
};

/* <<< main JS >>> */
   SetXY(100,100,12)