Update 05_triples.f95

Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95

@@ -6,8 +6,8 @@ program tripel
     WRITE(*,*) "Folgende Tripel ergeben als Summe 50 :"
 
     DO i = 0, 50
-        DO j = 0, 25
-            DO k = 0, 16
+        DO j = 0, 50
+            DO k = 0, 50
                 IF (i+j+k == 50) WRITE(*,*) i, j, k
             END DO
         END DO