Помогите переделать

[Natalia_Zlatskaia]

Определить, можно ли представить заданное натуральное число как сумму кубов каких-нибудь трех натуральных чисел.

PHP код:

program Project11;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
n,a,b,c:longint;
begin
Writeln('vvedite n');
readln(n);
For a:=1 to 100 do
For b:=a to 100 do
For c:=b to 100 do
If a*a*a+b*b*b+c*c*c=n then
begin
Writeln('a: ',a);
Writeln('b: ',b);
Writeln('c: ',c);
Writeln('Mozno');
 end;
If a*a*a+b*b*b+c*c*c<>n then Writeln('Nelzia');
 readln;
 end. 


[Аватар]

Кросспост

http://www.programmersforum.ru/showthread.php?t=303387