Код: Выделить всё
var
f:text;
s: string;
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>');
Assign(f, ....................................... Код: Выделить всё
.................................
Reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
Close(f);
writeln('</BODY>');
writeln('</HTML>')
End.