Найти пять наименьших натуральных чисел N таких, что N^2 = А^2 + В^2 + С^2, где А, В и С неравные друг другу натуральные числа.

Для упрощения процесса вычисления, при условии, что В и С неравные друг другу натуральные числа, необходимо написать следующую программу:

Var N: Integer;

begin

N:=0;

for var i:=1 to 5 do

begin

N:=i*i + (i+1) * (i+1) + (i+2) * (i+2);

writeln (N);

end;

end.

Таким образом мы найдём пять наименьших натуральных чисел N.