(Caracteres y Ristras de tamaño fijo)
Ada.Text_IO |
procedure Get([File : in File_Type;] Item : out Character);
procedure Get([File : in File_Type;] Item : out String);
with Ada.Text_IO; use Ada.Text_IO; ... S : String (1 .. 20); C : Character; F : File_Type; ... Get (C); -- Lee un carácter de la entrada estándar en la variable C Get (F, C); -- Lee un carácter del fichero F en la variable C Get (S); -- Lee 20 caracteres de la entrada estándar en la ristra S Get (F, S); -- Lee 20 caracteres del fichero F en la ristra S