+ missing halt instructions

tests/webtbs/tw39615a.pp

@@ -26,5 +26,8 @@ begin
 			ok := false;
 		end;
 	end;
-	if ok then writeln('ok');
+	if ok then 
+	  writeln('ok')
+	else
+	  halt(1);
 end.

tests/webtbs/tw39615b.pp

@@ -26,5 +26,8 @@ begin
 			ok := false;
 		end;
 	end;
-	if ok then writeln('ok');
+	if ok then 
+	  writeln('ok')
+	else
+	  halt(1);
 end.