with Text_IO;
use Text_IO;

procedure MoreOut is

begin

   Put("This is a line of text to ");
   Put("output to the monitor.");
   New_Line;
   Put("This is another line.");
   New_Line(2);
   Put("And this is a third.");
   New_Line(1);

   Put_Line("This is the next to last line.");
   Put_Line("And this is the last line.");

end;




-- Result of execution

-- This is a line of text to output to the monitor.
-- This is another line.
--
-- And this is a third.
-- This is the next to last line.
-- And this is the last line.