program imprime;
var
  aux:integer;
  arqimpr:text;
begin
  assign(arqimpr,'lpt1');
  rewrite(arqimpr);
  for aux:=1 to 10
  do writeln(arqimpr,'Teste...');
end.