Выполнять действия, пока х не равно 25 - PascalABC.NET

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

Подскажите, допустим у меня есть переменная х, как выполнить над ней операции, чтобы она изменялась только в подпрограммах. Например: х=4 Выполнять действия, пока х не равно 25 действия: 1) х+4 2)х*4 3)х-2 4)х/2 Ответ: 1)8 2)16 3)2 4)2 А потом для каждого из пунктов, выполнить операции 1-4 По структуре, что-то вроде прогрессии. Подскажите, как это запрограммировать?

Решение задачи: «Выполнять действия, пока х не равно 25»

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

                            uses
  GraphABC;
 
const
  mw = 2.1;
 
var
  w, x, glubina, start,max: integer;
 
procedure Fun(glubina, n, x, y, w: integer);
begin
  var w1 := round(w / mw);
  var h := 15;
  if n>=max then exit;
  Brush.Color := clRandom();
  Rectangle(x, y, x + w, y + w);
  Brush.Color := clWhite;
  textout(x, y, n);
  
  if glubina > 0 then
  begin
    Sleep(10);
    SetFontColor(clRed);
    Fun(glubina - 1, n + 4, x + h, y + h, w1 );
    SetFontColor(clGreen);
    Fun(glubina - 1, n * 4, x + w - h - w1, y + h, w1 );
    SetFontColor(clBlue);
    Fun(glubina - 1, n + 1, x + h, y + w - h - w1, w1 );
    SetFontColor(clBlack);
    Fun(glubina - 1, n * 2, x + w - h - w1, y + w - h - w1, w1);
  end
  else exit
end;
 
begin
  SetFontSize(10);
  glubina := 4;//глубина вычислений
  start := 4;//начальное значение числа
 max:=30;
  w := 1000;
  x := 1000;
  SetWindowSize(x, w);
  Fun(glubina, start, 1, 1, w);
end.
                        