Дано слово. удалить из него все символы в скобках. скобки в тексте встречаются только 1 раз.

Var s:string;
k1,k2:integer;
begin;
readln(s);
k1:=pos('(',s);
k2:=pos(')',s);
delete(s,k1+1,k2-k1-1);
writeln(s);
end.