Bài giải bài Kiểm tra ngoặc

Program ngoac; Uses crt; const fi='ngoac.inp'; fo='ngoac.out'; nmax=255; Var l,i,j:integer; s:string[255]; dt,dp:integer; f:text; procedure doctep; Begin assign(f,fi); reset(f); Readln(f,s); Readln(f); Close(f); End; procedure xuly; Begin dt:=0; For i:=1 to length(s) Begin If s[i]='(' then dt:=dt+1; If s[i]=')' then dt:=dt-1; If dt=0 then Writeln(f,'Dung') else Begin Writeln(f,'Chuoi sai'); writeln(f,'Tai vi tri: ',l); End; Close(f); End; BEGIN Clrscr; doctep; xuly; ghitep; Readln; END