missing semicolon

Smart pascal source code


procedure Test1;
begin
  repeat
    WriteLn('Test1')
  until True end;

  function Test2: Integer;
  begin
    Result := 2
  end;

  Test1;
  WriteLn(Test2);

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

function Test2() {
   return 2;
};
function Test1() {
   do {
      WriteLn("Test1")   } while (!true);
};

/* <<< main JS >>> */
   Test1();
   WriteLn(Test2());