program Project1; procedure hello_world(s: string); begin writeln('Hello world: ', s); end; begin hello_world('hey there'); end.