$ 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;