fpc/tests/webtbs/uw0809.pp

UNIT uw0809;

INTERFACE

  PROCEDURE Schreib(st : STRING);

IMPLEMENTATION

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

END.