diff --git a/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/01_taschenrechner_mit_if.f95 b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/01_taschenrechner_mit_if.f95
new file mode 100644
index 0000000000000000000000000000000000000000..2f6aff16891885df6487599b795abf02d3f226e1
--- /dev/null
+++ b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/01_taschenrechner_mit_if.f95
@@ -0,0 +1,36 @@
+program taschenrechner
+    implicit none
+    
+    INTEGER :: a, b ! Variablen
+    CHARACTER :: op ! Operator
+    INTEGER :: res  ! Result
+
+    WRITE(*,*) "Gebe zwei Zahlen ein!"
+    READ(*,*) a, b
+
+    WRITE(*,*) "Gebe einen Rechenoperator (+,-,*,/) ein!"
+    READ(*,*) op
+
+    IF (op == "+") THEN
+        res = a + b
+        WRITE(*,*) "Das Ergebnis ist ", res
+    ELSEIF (op == "-") THEN
+        res = a - b
+        WRITE(*,*) "Das Ergebnis ist ", res
+    ELSEIF (op == "*") THEN
+        res = a * b
+        WRITE(*,*) "Das Ergebnis ist ", res
+    ELSEIF (op == "/") THEN
+
+        IF (b == 0) THEN
+            WRITE(*,*) "Division durch 0 ist veboten!"
+        ELSE
+            res = a / b
+            WRITE(*,*) "Das Ergebnis ist ", res
+        END IF
+
+    ELSE
+        WRITE(*,*) "Der Eingegebene Operator ist ungueltig."
+    END IF
+
+end program taschenrechner
\ No newline at end of file