Нахождение минимального натурального числа, математическая задача Опции

[Juhn]

Задали написать программу в паскале на десяточку
Условие такое: найти минимальное натуральное число N, которое можно изобразить в виде суммы кубов двух натуральных чисел в двух вариантах. (N=a(3)+b(3)=c(3)+d(3)). (3) - в третей степени.

Честно говоря не знаю как написать эту прогу, а десять получить очень хочется
Очень надеюсь на вашу помощь.

[Feagor]

Смотрюю никто не хочет помогать с кодом
Ну ладно, так как у меня есть немного свободного времени...

Добавлено через 11 мин.

uses crt;
var n,a,b,c,d:integer;
label 1;
begin
a:=1;
b:=1;
c:=1;
n:=1;
for n:=1 to 100 do
for a:=1 to 100 do
for b:=1 to 100 do
for c:=1 to 100 do
for d:=1 to 100 do if (n=a*a*a+b*b*b) and (n=c*c*c+d*d*d) then {goto 1;}writeln(n,' ',a,' ',b,' ',c,' ',d);
{1:writeln(n,' ',a,' ',b,' ',c,' ',d);}
end. 

Добавлено через 21 мин.
проверял щас с условиям что все переменные - разные, комп чуть не повеслися, после 15 минут работы компа решил, что хватит, щелкнув ctrl+break

Сообщение отредактировано: Feagor - 24.12.2007 21:54