freepascal.compiler/tests/webtbf/tw4227.pp

{ %FAIL }
var
  p : pchar;

begin
  readln(p);
end.