module hello; #include #include "./cgi-pascal.h" procedure cgi_main(var ci: cgi_info; var params: form_pointer); var a: integer; s: string; begin s := 'text/html' + char(0); a := print_mimeheader(s); writeln(''); writeln('Hello Word!'); writeln('') end;{cgi_main}