program Ex_1;
 
var
  Str:string;
 
function brackets_balance(s: string): boolean;
var
  i,j,k,l: integer;
begin
  brackets_balance := false;
  for i := 1 to length(s) do
    if s[i] = '(' then
      for j:=i to length(s) do
        if s[j]=')' then brackets_balance := True
        else
  for k :=1 to length(s) do
    if s[k] = ')' then
      for l:=i to length(s) do
        if s[l]='(' then brackets_balance := True
        else brackets_balance := false;
end;
 
begin
Writeln('Vvedite stroky: ');
Readln(Str);
 
if  brackets_balance(Str)=True then write('Zdes est balans skobok ( i ).')
                               else write('Zdes net balansa skobok ( i ).');
 
Readln;
end.

cHJvZ3JhbSBFeF8xOwoKdmFyCiAgU3RyOnN0cmluZzsKCmZ1bmN0aW9uIGJyYWNrZXRzX2JhbGFuY2Uoczogc3RyaW5nKTogYm9vbGVhbjsKdmFyCiAgaSxqLGssbDogaW50ZWdlcjsKYmVnaW4KICBicmFja2V0c19iYWxhbmNlIDo9IGZhbHNlOwogIGZvciBpIDo9IDEgdG8gbGVuZ3RoKHMpIGRvCiAgICBpZiBzW2ldID0gJygnIHRoZW4KICAgICAgZm9yIGo6PWkgdG8gbGVuZ3RoKHMpIGRvCiAgICAgICAgaWYgc1tqXT0nKScgdGhlbiBicmFja2V0c19iYWxhbmNlIDo9IFRydWUKICAgICAgICBlbHNlCiAgZm9yIGsgOj0xIHRvIGxlbmd0aChzKSBkbwogICAgaWYgc1trXSA9ICcpJyB0aGVuCiAgICAgIGZvciBsOj1pIHRvIGxlbmd0aChzKSBkbwogICAgICAgIGlmIHNbbF09JygnIHRoZW4gYnJhY2tldHNfYmFsYW5jZSA6PSBUcnVlCiAgICAgICAgZWxzZSBicmFja2V0c19iYWxhbmNlIDo9IGZhbHNlOwplbmQ7CgpiZWdpbgpXcml0ZWxuKCdWdmVkaXRlIHN0cm9reTogJyk7ClJlYWRsbihTdHIpOwoKaWYgIGJyYWNrZXRzX2JhbGFuY2UoU3RyKT1UcnVlIHRoZW4gd3JpdGUoJ1pkZXMgZXN0IGJhbGFucyBza29ib2sgKCBpICkuJykKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVsc2Ugd3JpdGUoJ1pkZXMgbmV0IGJhbGFuc2Egc2tvYm9rICggaSApLicpOwoKUmVhZGxuOwplbmQu