Procedure QUITE; Var Chlrchar; о, k:integer; flag. flagl:integer; Begin

N :=0;



.