Update 06_triples_no_dublicates.f95

Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/06_triples_no_dublicates.f95

@@ -6,7 +6,7 @@ program tripel
     WRITE(*,*) "Folgende Tripel ergeben als Summe 50 :"
 
     DO i = 17, 50
-        DO j = 17, 25
+        DO j = 0, 25
             DO k = 0, 16
                 IF (i+j+k == 50) THEN
                     IF (i >= j .AND. j >= k) THEN