program z16_51;
var
s:string;
a: array[0..100] of byte;
i,j,m:integer;
begin
writeln('Ââåäèòå òåêñò');
readln(s);
j:=0;
if pos(')',s) else begin
{k:=pos('(',s);
j:=j+1;
a[j]}
for i:=1 to length(s) do
begin
if s[i]='(' then begin
j:=j+1;
a[j]:=1;
end;
if s[i]=')' then if a[j]=1 then begin
a[j]:=0;
j:=j-1;
end
else begin
writeln('ñêîáêè ðàññòàâëåíû íåâåðíî');
halt;
end;
end;
if j=0 then writeln('ñêîáêè ðàññòàâëåíû âåðíî')
else writeln('ñêîáêè ðàññòàâëåíû íåâåðíî');
end;
End.