EXPORT BabbageProblem()
BEGIN
PRINT();
PRINT("BABBAGE PROBLEM:");
I := 520;
WHILE I*I MOD 1000000 ≠ 269696 DO
  I := I + 4;
END;
PRINT("Min  X = " + I + "  con  X² = " + I*I);