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

Решение

program lab41;

var

s,sl:string;

i,k,p,l:integer;

begin

writeln('Vvedite stroku:');

readln(s);

k:=0;

p:=0;

for i:=0 to length(s) do

begin

k:=pos('(',s);

p:=pos(')',s);

end;

if (k<>0) and (p<>0) then

begin

sl:=copy(s,k+1,p-k-1);

writeln('Tekst vnutri skobok: ', sl);

end;

end.