Secuencia goto pascal

Hi en este ejemplo de turbo pascal mostrare el uso del Goto.

Describiendo Goto, es una orden que se puede emplear para realizar saltos incondicionales.
puede ser útil (para salir de bucles fuertemente anidados)
las etiquetas se deben declarar al principio del programa, igual que las
variables. Para ello se usa la palabra "label".

aqui un ejemplo

program appletenhtml;
label
opcion1, opcion2;
var
bt: byte;
begin
writeln('¿que opcion pasara la opción 1 o a la 2?');
readln (bt);
case bt of
1: goto uno;
2: goto dos;
else writeln('Numero incorrecto');
end;
exit;
uno:
writeln('Esta es la opción 1');
dos:
writeln('Esta es la opcion 2.');
end.

Descargar ejemplo:

go to pascal

Turbo Pascal