daniel 26 лет назад
Родитель
Сommit
355e5bd740
2 измененных файлов с 22 добавлено и 0 удалено
  1. 8 0
      bugs/bug0234.pp
  2. 14 0
      bugs/bug0235.pp

+ 8 - 0
bugs/bug0234.pp

@@ -0,0 +1,8 @@
+program bug0232;
+
+var p:pointer;
+
+begin
+     new(p);
+     dispose(p);
+end.

+ 14 - 0
bugs/bug0235.pp

@@ -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.