minus assign

Smart pascal source code


var i := 10;

i -= 2;
WriteLn(i);
i -= i;
WriteLn(i);
i += 10 - i;
WriteLn(i);

var f := 1.5;

f -= 2.5;
WriteLn(f);
f -= f;
WriteLn(f);
f -= 16.5 - f;
WriteLn(f);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
8
0
10
-1
0
-16.5
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

      var i = 0, f = 0;
      i = 10;
      i-=2;
      WriteLn(i);
      i-=i;
      WriteLn(i);
      i+=10-i;
      WriteLn(i);
      f = 1.5;
      f-=2.5;
      WriteLn(f);
      f-=f;
      WriteLn(f);
      f-=16.5-f;
      WriteLn(f);