diff --git a/program 1 b/program 1
new file mode 100644
index 00000000..ed7467c2
--- /dev/null
+++ b/program 1	
@@ -0,0 +1,11 @@
+% Silsilah Keluarga
+
+pria(budi).
+pria(joko).
+wanita(ani).
+
+orangtua(budi, joko).
+orangtua(ani, joko).
+
+ayah(x, y) :- pria(X), orangtua(x,y). 
+ibu(x, y) :- wanita(x), orangtua(x,y).