From 37a298f45096ba2d7735de9fb75fab80973dc580 Mon Sep 17 00:00:00 2001
From: XXIV <13811862+thechampagne@users.noreply.github.com>
Date: Wed, 28 Dec 2022 01:21:22 +0300
Subject: [PATCH] Add Pascal

---
 fib.pas | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 fib.pas

diff --git a/fib.pas b/fib.pas
new file mode 100644
index 0000000..841fabc
--- /dev/null
+++ b/fib.pas
@@ -0,0 +1,18 @@
+program fib;
+var
+   a, b : longint;
+begin
+   writeln(0);
+   writeln(1);
+   a := 1;
+   b := a + a;
+   writeln(a);
+   writeln(b);
+   while a < 1000000 do
+   begin
+      a := a + b;
+      b := a + b;
+      writeln(a);
+      writeln(b);
+   end;
+end.