sepres_prog.mod 165 B

1234567
  1. MODULE SepResProg;
  2. FROM SepRes IMPORT Value, Add;
  3. VAR ExitCode : INTEGER;
  4. BEGIN
  5. Add(2);
  6. IF Value = 42 THEN ExitCode := 42 ELSE ExitCode := 1 END
  7. END SepResProg.