Разработать алгоритм и составить программу на выбранном языке программирования ( Паскаль или Qbasic)  для нахождения  произведения цифр числа, полученного при умножении числа 12 на свой порядковый номер в списке группы.

var   m, n, p: integer; begin   Write('Введите свой номер в группе: ');   Readln(n);   n := n * 12;   p := 1;   repeat     m := n mod 10;     p := p * m;     n := n div 10   until n = 0;   Writeln('Результат ', p) end. Тестовое решение: Введите свой номер в группе: 13 Результат 30