Ada.Text_IO |
procedure Put_Line ([File : in File_Type; ]Item : in String);
with Ada.Text_IO; use Ada.Text_IO; ... S: String (1 .. 20); F : Ada.Text_IO.File_Type; ... Put_Line (S); -- Escribe 20 caracteres y un salto de línea en la salida estándar (la ristra S) Put_Line ("Hola"); -- Escribe la ristra Hola y un salto de línea en la salida estándar Put_Line (F, S); -- Escribe 20 caracteres y un salto de línea en el fichero F (la ristra S) Put_Line (F, "Hola"); -- Escribe la ristra Hola y un salto de línea en el fichero F