with

Smart pascal source code


with a := 1 do
  WriteLn(a);

with b := " a ", d := 3 do
begin
  with c := b + " c " do
    WriteLn(c);
    WriteLn(d);
  with c: Integer = d + 1 do
    WriteLn(c);
end;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
ac
3
4
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var a = 0,
   b = "",
   d = 0,
   c = "",
   c$1 = 0;

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

   a = 1;
   WriteLn(a);
   b = " a ";
   d = 3;
   c = b+" c ";
   WriteLn(c);
   WriteLn(d);
   c$1 = d+1;
   WriteLn(c$1);