diff --git a/exercises/block1/1-leap/README.md b/exercises/block1/1-leap/README.md
index e69de29..d19dbb3 100644
--- a/exercises/block1/1-leap/README.md
+++ b/exercises/block1/1-leap/README.md
@@ -0,0 +1,21 @@
+# Übungsaufgabe 1: Schaltjahr
+Eine Schaltjahr (im Gregorianischen Kalender) tritt auf:
+
+* In jedem Jahr, das ohne Rest durch 4 teilbar ist.
+* Es sei denn, das Jahr ist ohne Rest durch ``100`` teilbar, in welchem Fall es nur ein Schaltjahr ist, wenn es zusätzlich ohne Rest durch ``400`` teilbar ist.
+
+Einige Beispiele:
+
+* ``1997`` war kein Schaltjahr, da es nicht durch ``4`` teilbar ist.
+* ``1900`` war kein Schaltjahr, da es nicht durch ``400`` teilbar ist.
+* ``2000`` war ein Schaltjahr!
+
+Deine Aufgabe ist es, zu bestimmen, ob ein gegebenes Jahr ein Schaltjahr ist.
+
+Um diese Aufgabe zu lösen, musst du die Funktion ``isLeapYear`` in der Datei ``leap.hs`` implementieren, die ein Jahr entgegennimmt und bestimmt, ob es ein Schaltjahr ist.
+
+Um die Funktion zu testen, kannst du durch die folgenden Commands in diesem Ordner auf der Kommandozeile das Programm compilen und ausführen:
+
+``>ghc leap.hs leap``
+
+``>./leap``
\ No newline at end of file
diff --git a/exercises/block1/1-leap/example-input b/exercises/block1/1-leap/example-input
new file mode 100644
index 0000000..e69de29
diff --git a/exercises/block1/1-leap/example-output b/exercises/block1/1-leap/example-output
new file mode 100644
index 0000000..e69de29
diff --git a/exercises/block1/1-leap/leap.hs b/exercises/block1/1-leap/leap.hs
index e69de29..9fec543 100644
--- a/exercises/block1/1-leap/leap.hs
+++ b/exercises/block1/1-leap/leap.hs
@@ -0,0 +1,11 @@
+import System.IO
+
+isLeapYear :: Int -> Bool
+isLeapYear year -- implement here
+
+main :: IO ()
+main = do
+    content <- readFile "example-input"
+
+    isLeapYear 2000
+