Удалить часть символьной строки, заключенной в скобки (вместе со скобками).

uses Crt;var  s:string;  i,j:integer;begin  Writeln('Vvedite stroku: ');  Readln(s);  i:=Pos('(',s); j:=Pos(')',s);  if (i>0) and (j>0) and (j>i) then    s:=Copy(s,1,i-1)+Copy(s,j+1,Length(s)-j);  Writeln('Resultat: ',s);  ReadKeyend.Тестовое решение:Vvedite stroku:3*a-1/(2*a-5)/2Resultat: 3*a-1//2