Goto Label

GOTO LABEL

Etiqueta (LABEL)
Ir  (GOTO)

CÓDIGO

Program GOTO_LABEL; Uses Crt; Label Etiqueta; Begin ClrScr; WriteLn('Esta linea si se escribira'); Goto Etiqueta; WriteLn('Esta primera linea no se escribira'); WriteLn('Esta segunda linea no se escribira'); WriteLn('Esta tercera linea no se escribira'); Etiqueta: WriteLn('Se efectuo el brinco'); WriteLn; WriteLn('Presiona Enter p/Salir'); ReadLn; End.