PROGRAM TEST17(INPUT,OUTPUT); VAR I:INTEGER; X:CHAR; BEGIN FOR I:=1 TO 15 DO BEGIN READ(X); WRITELN(X); IF EOLN THEN WRITELN('**'); END; END.