6 lines
130 B
Text
6 lines
130 B
Text
|
procedure main(A)
|
||
|
|
tail := \A[1] | 269696
|
||
|
|
size := 10^*tail
|
||
|
|
if ((n := seq())^2 % size) = tail then write(n," -> ",n^2)
|
||
|
|
end
|