procedure p2; begin writeln('Hello'); end;