Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобки. Вывести на экран все символы, (программа Паскаль)

Question

Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобки. Вывести на экран все символы, расположенные внутри этих скобок.

Answer 1

var s:string;
    i:byte;
begin
 readln(s);
 for i:=1 to length(s) do
  if s[i]='(' then break;
 inc(i);
 while s[i]<>')' do
 begin
  write(s[i]);
  inc(i);
 end;
 writeln;
end.