Diferencia entre revisiones de «Programación en Ada/Unidades predefinidas/Ada.Text IO»

{{Ada/Reservada|with}} Ada.Strings.Unbounded; {{Ada/Reservada|use}} Ada.Strings.Unbounded;

{{Ada/Reservada|procedure}} Leer_Entero {{Ada/Reservada|is}}

Fin := True;

{{Ada/Reservada|else}}

Ada.Text_Io.Put (ASCII.BS & ' ' & ASCII.BS);

{{Ada/Reservada|end}} {{Ada/Reservada|if}};

{{Ada/Reservada|end}} {{Ada/Reservada|if}};

{{Ada/Reservada|delay}} 0.01;

{{Ada/Reservada|end}} {{Ada/Reservada|loop}};