Sinnvoller Einsatz von goto

[Deep-Sea]

Zitat von Wolfgang Mix:

Delphi-Quellcode:

VAR A,B,C : Integer;
Label : Ende;
Begin
  Anweisungen ...
  Readln(A);
  If (A=0) Then Goto Ende;
  Anweisungen ...
  Ende: {Hier ist das Label Ende}
  Writeln('Hier ist wirklich Schluß');
End.

Delphi-Quellcode:

VAR A,B,C : Integer;
Begin
  Anweisungen ...
  Readln(A);
  If A <> 0 then 
  begin
    Anweisungen ...
  end;
  Writeln('Hier ist wirklich Schluß');
End.

Oder wie oder was???