5 lines
130 B
Text
5 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
|