1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
program hello(output); procedure WriteResponseHeader; begin writeln('content-type: text/html'); writeln end; begin WriteResponseHeader; writeln('<HTML>'); writeln('<HEAD>'); writeln('<TITLE>IriePascal Hello World Program</TITLE>'); writeln('</HEAD>'); writeln('<BODY>'); writeln('<BIG> Hello world!!! </BIG>'); writeln('</BODY>'); writeln('</HTML>') end.