Разработать алгоритм и составить программу на выбранном языке программирования ( Паскаль или 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