diff --git a/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95 b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95
new file mode 100644
index 0000000000000000000000000000000000000000..25c73c0c9c97b3936543a52bb051cacf2333990c
--- /dev/null
+++ b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95
@@ -0,0 +1,22 @@
+program vierstellig
+    implicit none
+
+    INTEGER :: i, j, k, l ! Zählvariablen
+    INTEGER :: res
+
+    WRITE(*,*) "Alle vierstelligen Zahlen aus 1, 2, 3 und 4 :"
+
+    DO i = 1, 4
+        DO j = 1, 4
+            DO k = 1, 4
+                DO l = 1, 4
+
+                    res = i*1000 + j*100 + k*10 +j
+                    WRITE(*,*) res
+
+                END DO
+            END DO
+        END DO
+    END DO
+    
+end program vierstellig
\ No newline at end of file