ПАСКАЛЬ: ОБРОБКА ТЕКСТІВ

type States=(out, bgn, incm, bgend)

та змінну q цього типу. Спочатку q:=out. А далі

while not eof(f) do

begin

read(f, ch);

case q of

out: case ch of

'(': q:=bgn

else write(g, ch)

end;

bgn: case ch of

'(': write(g, '(');

'*': q:=incm

else

begin

write(g, '(', ch); q:=out

end;

end;

incm: case ch of

'*': q:=bgend

end;

bgend: case ch of

'*': ;

')': q:=out

else q:=incm