аписать на Паскале программу с использованием оператора Repeat..until, которая запрашивает с клавиатуры набор произвольных целых положительных чисел и ищет их сумму. Признаком окончания последовательности чисел является «0».