unit cgiunit;
interface
procedure Main;
implementation
procedure Main;//Эта процедура подает на консоль(в данном случае веб-браузер) некий текст,
//представляющий собой текст документа в формате HTML
//при ее выполнении программа отправляет в браузер выводимый html документ
begin
WriteLn('Content-Type: text/html');
WriteLn;
WriteLn('');
WriteLn('');
WriteLn('CGI скрипт');
WriteLn('');
WriteLn('');
WriteLn;
WriteLn('Пример HTML страницы сгенерированной CGI скриптом
');
WriteLn('');
WriteLn('');
end;
end.