         Write(6,*)'Passei ',n,' vezes'			      <
