daniel
26 years ago
|
@@ -0,0 +1,8 @@
|
|
|
+program bug0232;
|
|
|
+
|
|
|
+var p:pointer;
|
|
|
+
|
|
|
+begin
|
|
|
+ new(p);
|
|
|
+ dispose(p);
|
|
|
+end.
|
|
@@ -0,0 +1,14 @@
|
|
|
+program bug0233;
|
|
|
+
|
|
|
+var s:string;
|
|
|
+ w:cardinal;
|
|
|
+ code:word;
|
|
|
+
|
|
|
+begin
|
|
|
+ s:='192';
|
|
|
+ val(s,w,code);
|
|
|
+ if code<>0 then
|
|
|
+ writeln('Error')
|
|
|
+ else
|
|
|
+ writeln(w);
|
|
|
+end.
|