tw1930.pp 61 B

12345
  1. type
  2. tprocedure = procedure (x: byte);pascal;
  3. begin
  4. end.