$ include "seed7_05.s7i";

const proc: main is func
  local
    var integer: current is 0;
  begin
    while current ** 2 rem 1000000 <> 269696 do
      incr(current);
    end while;
    writeln("The square of " <& current <& " is " <& current ** 2);
  end func;