program GOTO_Program;
Label
  L1, L2;
Var
   i:Integer;
begin
   i := 1;
   L1:
   Writeln('Hello, World!');
   if i = 10 then  
      goto L2;
   i := i + 1;
   goto L1;
   L2:
end.