Inference II

Smart pascal source code


procedure MyProc;
const two = 2;
var i: Integer := two;
    j := i;
iStr = IntToStr(i);
obj := TObject.Create;
begin
  if i = j then
    WriteLn('match int');

  if iStr = '2' then
    WriteLn('match str');
end;

MyProc;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
match int
match str
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function MyProc() {
   var i = 2;
   var j = 0,
      j = i;
   var iStr = "",
      iStr = i.toString();
   var obj = null,
      obj = TObject.Create($New(TObject));
   if (i==j) {
      WriteLn("match int");
   }
   if (iStr=="2") {
      WriteLn("match str");
   }
};