Comment Removal

Problem Number: 
5 360
Type of Problem: 
Problem Category: 
Input: 
Random Input
Critical Input
0
Critical Input: 
begin writeln('(**)'{ *)}+''); end.
Random Input: 
{Don't replace sequences of blanks with a single blank after removing comments } {For more details read problem statement } (* * ) *)(* My pascal program fails on comment above *) Program p723(input,output); {$D-,L-,I-,Q-,R-,S-,Y-} var x { }:integer; procedure repeatuntilfalse;begin end; begin (* comments are removed and not replaced by blank!*) (* This is an example that input and output programs can be different!!!*) repeat{}until{}false; end. {My ACCEPTED Pascal programs works 0.131 seconds with 320Kb memory spent} {Any hints how speed up Pascal I/O?} {SetTextBuf function is restricted!}
Problem Id: 
5360