Составить программу последовательно используя для решения задачи все три циклические управляющие структуры - Turbo Pascal

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

Помогите пожалуйста сижу 4 час не могу составить алгоритм и программу. Составить программу последовательно используя для решения задачи все три циклические управляющие структуры (операторы while, repeat…until, for). Для введенных с клавиатуры значений X и m вычислить P:

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

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

var m, i, x: integer;
    p: real;
begin
  repeat
    write('M = '); readln(m);
  until m mod 2 = 0;
  write('X = '); readln(x);
  p := 1;
  for i := 1 to m div 2 do
    p := p * (m + x / (m - i + 1));
  i := m div 2 + 1;
  while i <= m do begin
    p := p * (m + x / (m - i + 1));
    i := i + 1;
  end;
  writeln('Result = ', p);
end.

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

Переменная m используется как счетчик для цикла while и принимает значения от 1 до m натуральным образом.
В каждой итерации цикла while, программа запрашивает у пользователя ввод числа x.
Переменная p инициализируется значением 1.
Цикл for выполняет деление числа m на 2 и вычисляет значение p на каждой итерации.
Значение переменной i инициализируется значением (m div 2) + 1.
Цикл while выполняет деление числа m на 2 и вычисляет значение p на каждой итерации.
Значение переменной i увеличивается на 1 на каждой итерации цикла while.
В конце программы выводится значение переменной p.