MODULE beginend;(* DEE 2023-07-27 *)
  (* From PASCAL: user manual and report, pg. 21 *)
  FROM SWholeIO IMPORT WriteInt;
  FROM STextIO IMPORT WriteLn;

  VAR sum: INTEGER;
BEGIN
  sum := 3+5;
  WriteInt(sum,10);WriteInt(-sum,10); WriteLn
END beginend.