Smart pascal source code


var
  i : integer;

BEGIN

for i := 1 to 3 do begin
	case i of
		2 : break;
	end;
	WriteLn(i);
end;

for i := 1 to 3 do begin
	case i of
		2 : begin
			WriteLn('two');
			break;
		end;
	end;
	WriteLn(i);
end;

for i := 1 to 3 do begin
	case i of
		1 : WriteLn('one');
	else
		break;
	end;
	WriteLn(i);
end;

for i := 1 to 3 do begin
	case i of
		1 : WriteLn('one');
	else
		WriteLn('else');
		if i=3 then
			break;
	end;
	WriteLn(i);
end;

{ ### CONSOLE OUTPUTS ###

  1
  1
  two
  one
  1
  one
  1
  else
  2
  else

}

      var i = 0;
      for(i=1;i<=3;i++) {
         {var $temp1 = i;
            if ($temp1==2) {
               break;
            }
         }
         WriteLn(i);
      }
      for(i=1;i<=3;i++) {
         {var $temp2 = i;
            if ($temp2==2) {
               WriteLn("two");
               break;
            }
         }
         WriteLn(i);
      }
      for(i=1;i<=3;i++) {
         {var $temp3 = i;
            if ($temp3==1) {
               WriteLn("one")            }
             else {
               break;
            }
         }
         WriteLn(i);
      }
      for(i=1;i<=3;i++) {
         {var $temp4 = i;
            if ($temp4==1) {
               WriteLn("one")            }
             else {
               WriteLn("else");
               if (i==3) {
                  break;
               }
            }
         }
         WriteLn(i);
      }