The Ada Program: assign.adb

  1 -- assign.adb:  a few assignment statements
  2 
  3 procedure Assign is
  4 
  5    W, X, Y, Z: Integer;
  6 
  7 begin
  8 
  9    -------------------  W    X    Y    Z
 10                   --    ?    ?    ?    ?
 11    W := 14;       --   14    ?    ?    ?
 12    X := 3 + 2*W;  --   14   31    ?    ?
 13    Y := X mod 3;  --   14   31    1    ?
 14    X := X + Y;    --   14   32    1    ?
 15    Z := 5 + Y;    --   14   32    1    6
 16 
 17 end Assign;