Циклы в Паскале: как использовать while do