// Демонстрация работы функции Eoln
begin
  while not Eoln do
  begin
    var c := ReadChar;
    Print(c);
  end;
end.