mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-04-14 10:07:39 +08:00
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
21 lines
422 B
ObjectPascal
21 lines
422 B
ObjectPascal
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.
|
|
|