|
@@ -19,11 +19,11 @@ begin
|
|
|
if P[i]<>i Then
|
|
|
Writeln ('Oh-oh, ',i,'th index differs.');
|
|
|
FreeMem(P);
|
|
|
-end. $Log$
|
|
|
-end. Revision 1.2 2002-09-07 15:42:54 peter
|
|
|
-end. * old logs removed and tabs fixed
|
|
|
-end.
|
|
|
-end. Revision 1.1 2002/01/29 17:54:59 peter
|
|
|
-end. * splitted to base and extra
|
|
|
end.
|
|
|
+
|
|
|
+{
|
|
|
+ $Log$
|
|
|
+ Revision 1.3 2002-09-08 15:44:40 michael
|
|
|
+ + fixed log entry
|
|
|
+
|
|
|
}
|