Program h;
var i:integer;
    iz,io:integer;
    s:string;
 
begin
write('Vvedite PREDLOJENIE: '); readln(s);
 
iz:=0;
io:=0;
 
for i:=1 to length(s) do   begin
if s[i]='(' then inc(iz);
if s[i]=')' then inc(io);
                           end;
 
if iz=io then writeln('Skobki zakryty!')
else writeln('Skobki NE zakryty!');
 
readln;
end.