RosettaCodeData/Task/Flow-control-structures/Pascal/flow-control-structures-1.pas

label
  jumpto;
begin
  ...
jumpto:
  some statement;
  ...
  goto jumpto;
  ...
end;