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

program zz1;

var s, s1:string;

i, d:integer;

begin

read (s); / /вводим исходную строку

d:=length (s); / /определяем длину исходной строки

for i:=1 to d do / /перебираем в цикле все буквы от первой до последней

if (s[i]' (') and (s[i]') ') then s1:=s1+s[i]; / /проверяем, если буква из строки неравна скобке " (" и неравна скобке ") ", то пишем эту букву в конец другой строки

writeln (s1); / /выводим ответ

end.