with Ada.Text_Io;
use Ada.Text_Io;


procedure partc is

   type Line is array (1..80) of Character;
   retrieved_line : Line;

   task Char_To_Line is
      entry Put (C: in Character);
      entry Get (L: out Line);
   end Char_To_Line;
      
   task body Char_To_Line is
      Buffer:Line;
   begin
      loop
         for I in 1..80 loop
            accept Put (C:in Character) do
               Buffer(I) := C;
            end Put;
         end loop;
         
         accept Get (L: out Line) do
            L:=Buffer;
         end Get;
      end loop;
      
   end Char_To_Line;


   
begin -- partc start

   for J in 1..80 loop
      Char_To_Line.Put('a');
   end loop;

   retrieved_line(1):='a';

   Char_To_Line.Get(retrieved_line);

   for I in 1..Line'Last loop
      Ada.Text_Io.Put(retrieved_line(I));
   end loop;
      

end partc;