Составить программу для вычисления произведения чисел - PascalABC.NET

Формулировка задачи:

Составить программу для вычисления произведения чисел: 6, 12, 18 ...,60 Решать с помощью циклов While или Repeat, но не как не For, так сказал учитель)Спасибо за ранее!

Решение задачи: «Составить программу для вычисления произведения чисел»

Листинг программы

m:=1;
n:=6;
Repeat
  m:=m*n;
  Inc(n,6);
Until n>60;
Writeln(m);

Объяснение кода листинга программы

Объявляются две переменные: m и n. Значение переменной m равно 1, а значение переменной n равно 6.
Запускается цикл повторений.
Внутри цикла значение переменной m умножается на значение переменной n.
Значение переменной n увеличивается на 6.
Цикл повторяется до тех пор, пока значение переменной n не станет больше 60.
После окончания цикла выводится значение переменной m.