type S = set of 0..50;
Описать функцию p (A), подсчитывающую произведение элементов множества A типа S. (Например, sum ([5,8,23] = 920.))
Программа: введите множество A (ноль используйте как
прекращение ввода). Выдайте, вызвав функцию p, произведение элементов множества A.