Пример строки: 1 2 3 ( 4 5 6 ) 7 8 9 0
Program SKOBKI;
var
a,b,c,d,e:integer;
st:string;
begin
write('CTPOKA--> ');
readln(st);
for a:=1 to length(st) do
if st[a]='(' then c:=a+1;
for b:=1 to length(st) do
if st[b]=')' then d:=b-1;
for e:=c to d do
write(st[e]);
readln;
end.