program hello(output); procedure WriteResponseHeader; begin writeln('content-type: text/html'); writeln end; begin WriteResponseHeader; writeln(''); writeln(''); writeln('IriePascal Hello World Program'); writeln(''); writeln(''); writeln(' Hello world!!! '); writeln(''); writeln('') end.