-- with Ada.Text_Io; use Ada.Text_Io;
with Gnat.Io; use Gnat.Io;

-- This is the typical get_line example

procedure Get_Line is
   S : String (1..100);
   N : Integer;
begin
   loop
      Put_Line ("I'm Task 1");
      Get_Line (S, N);
      Put_Line ("--" & S (1 .. N));
      delay 5.0;
   end loop;
end Get_Line;