program goto_test (output);

label 10;

var i : integer;

begin
  for i := 1 to 10 do
  begin
    writeln (i);
    goto 10
  end;
10:
end.