Free pascal

用goto好啦，不过很多比赛都不能用goto的。一般的程序设计是用不到这个的吧，实在没办法用一个最水的方法，直接套一重循环好啦，不过还是goto最明了，就看你自己选了

GOTO

用GOTO就行了。如果实在不想用，有时可以用递归。

现在很多比赛都不能用 GOTO 的,建议用
repeat或while,你总不能让程序一直不停的循吧,goto随简单,但用熟了就改不过来了.