merge.pas

来自「this is a lp0 compilator new」· PAS 代码 · 共 20 行

PROGRAM Main;

PROCEDURE MergeSort ( VAR Key : SortArray;
		      N : INTEGER );

VAR 
   CopyKey	: SortArray;
   K		: INTEGER;

BEGIN { PROCEDURE MergeSort }
   FOR K := 1 to N DO
      CopyKey[K] := Key[K];
END;   { of Procedure MergeSort }

BEGIN { PROGRAM Main }

END.   { of PROGRAM Main }