Составить программу в паскале с использованием циклических операторов: найти все натуральные решения уравнения х^2+у^2=м, где м> 0 задает пользователь

var
  x, y, m: integer;
begin
  readln(m);
  writeln('x':6, 'y':6);
  for x := 0 to m do
    for y := 0 to m do
      if (sqr(x) + sqr(y) = m) then
        writeln(x:6, y:6);
end.