14 lines
246 B
Text
14 lines
246 B
Text
program Project1;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses Printers;
|
|
|
|
var
|
|
lPrinterAsTextFile: TextFile;
|
|
begin
|
|
AssignPrn(lPrinterAsTextFile);
|
|
Rewrite(lPrinterAsTextFile);
|
|
Writeln(lPrinterAsTextFile, 'Hello World!');
|
|
CloseFile(lPrinterAsTextFile);
|
|
end.
|