PROGRAM	"Babbage problem"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
	number = 524
	DO
		number = number + 2
	LOOP UNTIL ((number ** 2) MOD 1000000) = 269696
	PRINT "The smallest number whose square ends in 269696 is: "; number
	PRINT "It's square is "; number ** 2
	PRINT "It's square is "; number * number
END FUNCTION
END PROGRAM