(* Chapter 10 - Programming exercise 1 *)
program Simple_WP;

var In_Line : string[60];
    Index   : integer;
    c       : char;

begin
   repeat
      In_Line := '';
      Index := 0;
      repeat
         Index := Index + 1;
         Read(c);
         In_Line := In_Line + c;
      until (Index = 60) or (In_Line[Index] = Chr(10));
      Writeln(In_Line);
   until (In_Line[1] = 'E') and
                     (In_Line[2] = 'N') and
                                 (In_Line[3] = 'D');
end.




{ Result of execution

(The input is echoed line by line until END is entered.)

}