program tt2html; var s : string; endwritten : boolean; remark : boolean; for_FE : boolean; function nbsp(s : string) : string; begin if s='' then nbsp:=' ' else nbsp:=s; end; { nbsp } procedure writehtmlhead; begin writeln(''); writeln(''); writeln(''); writeln(''); end; { writehtmlhead } procedure endtable; begin writeln(''); writeln(''); end; { endtable } procedure endul; begin writeln(''); end; { endul } procedure writehtmlend; begin if not endwritten then endtable; if remark then endul; endwritten:=true; writeln(''); writeln(''); end; { writehtmlend } procedure writehead(s : string); begin writeln(''); write(''); writeln('

'); write(' ' + copy(s, 3, length(s)-2) + ''); writeln('

'); writeln('
'); writeln(''); writeln(''); end; { writehead } procedure writeline(s : string); var r : string; begin r:=s; write(''); write(''); writeln(''); end; { writeline } procedure writeremark(s : string); begin if not endwritten then begin endtable; endwritten:=true; writeln('

'); write(''); write(copy(s, 2, length(s)-1)); writeln('

'); write(nbsp(copy(s, 1, pos(#9, s)-1))); s:=copy(s, pos(#9, s)+1, length(s)); write('

'); if for_FE then write('') else write(''); write(s); if for_FE then write('') else write(''); write('