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