"Source: Text/System/State.text";
"Line: 1621";
"Date: Thu Sep 25 21:32:21 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/System/State.text, line: 1621
// Example: H1E16 ()
print "Example: H1E16";
ei := GetEchoInput();
SetEchoInput(true);
p := 10037;
for x in [1 .. 100] do
   for y in [1 .. 100] do
      if x^2 + y^2 eq p then
         x, y;
         break x;
      end if;
   end for;
end for;
SetEchoInput(ei);
