t_qualp.mod 100 B

1234567
  1. MODULE TQualP;
  2. IMPORT DQualP;
  3. VAR ExitCode : INTEGER;
  4. BEGIN
  5. DQualP.P;
  6. ExitCode := 0
  7. END TQualP.