program kuohao; type a=array[1..100]of char; var x:string; y

program kuohao; type a=array[1..100]of char; var x:string; y,i,s,top:integer; b,t:a; begin top:=0;
program kuohao;
type a=array[1..100]of char;
var x:string; y,i,s,top:integer; b,t:a;
begin
top:=0; i:=1; s:=0;
readln(x);
y:=length(x);
repeat
if x[i]='(' then begin
top:=top+1;
b[top]:=x[i];
end;
if x[i]=')' then begin
s:=s+1;
t[s]:=x[i];
end;
inc(i);
until i>y;
if top>s then writeln('< is more');
if topy;
if top>s then writeln('< is more');
if top