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

Question

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

Answer 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.