with Ada.Text_IO;
use Ada.Text_IO;
procedure ejercicio_5 is
   type String is array (Positive range <>) of Character;
   S:constant String:= "TIEMPO REAL";
begin
   for i in S'Range loop
      Put(S(i));
   end loop;

end ejercicio_5;