Пример использования инструкций goto — Pascal(Паскаль)

program parol;
label
     bye;
var
     password:integer;
begin
     write('Пароль?');
     readln(password);
     if password <>377
          then begin
               writeln(chr(7),'Пароль неверный!');
               goto bye;
          end;
     { здесь инструкции программы}
bye:
end.