Дано целое число n и выражение n=x^2+y^2+z^2

[Lirax]

Дано целое число n и выражение n=x^2+y^2+z^2. Найти все числа x,y,z, удовлетворяющие этому выражению. В среде lazarus ввод осуществляется в edit, а вывод в мемо по такой аналогии

[type_Oleg]

Вы не поверите, есть такие волшебные букафки -

 if (x*x+y*y+z*z)<>n then Continue;

Чтобы было красиво, и можно было скопировать.

[Lirax]

type_Oleg, извините, я первый раз на этом форуме

var
  n,y,z,x:integer;
begin
n:=StrToInt(Edit1.text);
    for x:=0 to n do
begin
    for y:=0 to n do
begin
    for z:=0 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n) then Memo1.Lines.Text := Memo1.Text + IntToStr(x) + IntToStr(y) + IntToStr(z) + ' ';

end;
end;
end;
end;
 end.

[type_Oleg]

Вроде правильно, но лучше так-

var m,n,x,y,z:Integer;
begin
 n:=StrToIntDef(Edit1.Text,0);
 m:=Round(Sqrt(n))+1;
 for x:=0 to m do
  for y:=0 to m do
   for z:=0 to m do
    if (x*x+y*y+z*z)=n then Memo1.Lines.Add(IntToStr(x)+#9+IntToStr(y)+#9+IntToStr(z));
end;

Может быть, еще как то можно сократить .
9- код табуляции. Можно вместо него просто ' ' , но с tab лучше.

PS А лучше

m:=Ceil(Sqrt(n));

но для него надо

uses Math;

[Lirax]

type_Oleg, спасибо большое