diff --git a/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95 b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95
new file mode 100644
index 0000000000000000000000000000000000000000..a20208ad1d91c2ecaeb5c33b908939b918413fab
--- /dev/null
+++ b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95
@@ -0,0 +1,16 @@
+program tripel
+    implicit none
+    
+    INTEGER :: i, j, k ! Zählvariablen
+
+    WRITE(*,*) "Folgende Tripel ergeben als Summe 50 :"
+
+    DO i = 0, 50
+        DO j = 0, 25
+            DO k = 0, 16
+                IF (i+j+k == 50) WRITE(*,*) i, j, k
+            END DO
+        END DO
+    END DO
+
+end program tripel
\ No newline at end of file