Найти пять наименьших натуральных чисел 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.