Data commit

Task/Babbage-problem/Simula/babbage-problem.simula

@@ -0,0 +1,22 @@
+BEGIN
+    INTEGER PROBE, SQUARE;
+    BOOLEAN DONE;
+
+    WHILE NOT DONE DO BEGIN
+        PROBE := PROBE + 1;
+        SQUARE := PROBE * PROBE;
+        IF MOD(SQUARE, 1000000) = 269696 THEN BEGIN
+
+            OUTTEXT("THE SMALLEST NUMBER: ");
+            OUTINT(PROBE,0);
+            OUTIMAGE;
+
+            OUTTEXT("THE SQUARE : ");
+            OUTINT(SQUARE,0);
+            OUTIMAGE;
+
+            DONE := TRUE;
+        END;
+    END;
+
+END