использование операторов цикла, помгите пожалуйста Опции

[AmigoSS]

Написать прогу, котороя при введение положительных чисел от 100 до 200 возводит их в квадрат, при введении чисел от -10 до -1 возводяться в куб, а привведении ноля он заменяется на еденицу.... Используя операторы цикла...

[volvo]

begin
  repeat { вот тебе и цикл }

    write('x = '); readln(x);
    if x <> -9999 then begin
      if (x >= -10) and (x <= -1) then { возводишь X в куб }
      else
        if (x >= 100) and (x <= 200) then { возводишь X в квадрат }
        else if x = 0 then { заменяешь X на 1 }
      writeln('x = ', x);
    end;

  until x = -9999; { это число - для окончания }
end.