Программа паскаль: найти все натуральные корни, меньше 100, уравнения x^4-10x^3+38x^2-79x+70=0 , !

//PascalABC.NET 3.2 сборка 1318

Var
  x:integer;
begin
for x:=1 to 99 do
  if  power(x,4)-10*power(x,3)+38*sqr(x)-79*x+70=0 then writeln(x);
end.