Do-while文
Pascalの例。