Степенное уравнение, друзья помогите мастерцу Ц Опции

[Мастер Ц]

Привет !
Помогите мне пожалуйста. искал по поиску не нашел.
Если Вас не затруднит, найдите значения для уравнения

27*x+y*y*y+z*z*z*z*z*z=w*w*w*w*w*w*w

Заранее спасибо.

[volvo]

function power(X, p: integer): longint;
var _result: longint;
begin
  _result := 1;
  while p > 0 do begin
    _result := _result * X;
    dec(p);
  end;
  power := _result;
end;

var
  x, y, z, w: longint;
begin
  for x := -20 to 20 do
    for y := -20 to 20 do
      for z := -20 to 20 do
        for w := -20 to 20 do begin
          if 27*x + power(y, 3) + power(z, 5) = power(w, 7) then
            writeln('27*', x:5, '+', y:5, '^3+', z:5, '^5=', w:5, '^7');
        end;
end.

(от -20 до 20 было сделано, чтобы отработало в TP, ограничение типа LongInt)...