type
 tprocedure = procedure (x: byte);pascal;

 begin
 end.