* remove readln;

git-svn-id: trunk@641 -

tests/webtbs/tw4155.pp

@@ -14,5 +14,4 @@ begin
     WriteLn('problem')
   else
     Writeln('OK');
-  Readln;
-end.
+end.