В промежутке от 1 до 25 чётные увеличить вдвое, а нечётные уменьшить на 2. (решить в цикле)

Если я правильно поняла задачу, то вот:var a: integer; i:integer; begin a:=0; for i:=1 to 25 do begin a:=a+1; if a mod 2=0 then write (a*2,' ') else write (a-2,' '); end;end.Выводит:-1 4 1 8 3 12 5 16 7 20 9 24 11 28 13 32 15 36 17 40 19 44 21 48 23