program luento(input, turva); {tehtävä 10.3}
  var turva: text;
      m: char;
      loppu: boolean;
begin
      {Syöte tulee aina näppäimistöltä ja päättyy %-merkkiin,
       eof-tilannetta ei oikeastaan voi tulla, mutta varaudutaan
       siihenkin 'varmuuden vuoksi'.}

  rewrite(turva);
  loppu := eof;
  while not loppu do 
    begin
      while not eoln do 
        begin
          read(m);
          if m = '#' then 
             rewrite(turva)
          else if m = '%' then
             loppu := true
          else
             write(turva, m)
        end;
      readln;
      writeln(turva);
      loppu := loppu or eof
    end
end.