var a:string;

b,c,i:integer;

begin

readln(a);

for i:=1 to length(a) do begin

if a[i]='(' then inc(b);

if a[i]=')' then inc(c);

end; {после цикла переменная б - счетчик скобок"(", а с - ")"} 

if b=c then writeln('Kolichestvo skobok odinakovo') else writeln('Kol-vo skobok ne odinakovo');

end.