Дана строчка, содержащая слова. Некие из слов взяты в скобки. Написать

program zz1;
var s,s1:string;
i,d:integer;
begin
read(s); //вводим начальную строчку
d:=length(s); //определяем длину начальной строчки
for i:=1 to d do //перебираем в цикле все буковкы от первой до заключительней
if (s[i]lt;gt;()and(s[i]lt;gt;)) then s1:=s1+s[i]; //проверяем, если буковка из строки неравна скобке "(" и неравна скобке ")", то пишем эту буковку в конец иной строки
writeln(s1); //выводим ответ
end.