Задача 18.2. Напишемо програму, яка друкує свiй текст, використовуючи засоби модуля Printer.

Program Demo_Print;
Uses Printer;
Var f:file of char; s:char;
Begin
 Assign(f,'print.pas');
 Reset(f);
 while not Eof(f) do
 begin
 Read(f, s);
 Write(Lst, #15, s);
 end;
 Close(f);
End.