(* ********************************** *)
(* PASCAL CGI PROGRAM *)
(* *)
(* Author: Matthew William Coan *)
(* Date: Sat Apr 23 16:24:03 EST 2011 *)
(* ********************************** *)
program PascalCGI;
procedure SayHello;
begin
WriteLn('');
WriteLn('');
WriteLn('');
WriteLn('Hello Pascal!');
WriteLn('');
WriteLn('');
WriteLn('');
WriteLn('Hello, Pascal!
');
WriteLn('');
WriteLn('');
end;
procedure WriteContentType;
begin
Write('Content-type: text/html');
Write(Char(13));
Write(Char(10));
Write(Char(13));
Write(Char(10));
end;
begin
WriteContentType;
SayHello;
end.