unit u4; {$include test.h} begin p1; end.