with Ada.Text_IO;
use Ada.Text_IO;

procedure SomeOut is

begin

   Put("This is a line of text.");

end SomeOut;




-- Result of execution

-- This is a line of text.