Программирование цикла с постусловием на языке Паскаль