freepascal.compiler/tests/webtbs/tbug809a.pp

UNIT tbug809a;

INTERFACE

  PROCEDURE Schreib(st : STRING);

IMPLEMENTATION

PROCEDURE Schreib(st : STRING);
BEGIN
  WriteLn(st);
END;

END.