From dc033aecd9dab71af37ac5388bcbf232eb0702f9 Mon Sep 17 00:00:00 2001
From: Alessandro Fragnani <alefragnani@hotmail.com>
Date: Mon, 11 Mar 2019 23:47:33 -0300
Subject: [PATCH] Add Pascal samples

---
 test/samples/sample.pascal.txt          | 29 +++++++++++++++++++++++++
 website/index/samples/sample.pascal.txt | 28 ++++++++++++++++++++++++
 2 files changed, 57 insertions(+)
 create mode 100644 test/samples/sample.pascal.txt
 create mode 100644 website/index/samples/sample.pascal.txt

diff --git a/test/samples/sample.pascal.txt b/test/samples/sample.pascal.txt
new file mode 100644
index 0000000000..dbdeabbe38
--- /dev/null
+++ b/test/samples/sample.pascal.txt
@@ -0,0 +1,29 @@
+program GreetingsNumberOfTimes;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  System.SysUtils;
+
+var
+  greetingsMessage: string;
+  numberOfTimes, i: integer;
+
+begin
+  try
+    { TODO -oUser -cConsole Main : Insert code here }
+    greetingsMessage := 'Hello World!';
+    numberOfTimes := 10;
+
+    for i := 1 to numberOfTimes do
+    begin
+      Writeln(greetingsMessage);
+    end;
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.
+
diff --git a/website/index/samples/sample.pascal.txt b/website/index/samples/sample.pascal.txt
new file mode 100644
index 0000000000..477a1c62f3
--- /dev/null
+++ b/website/index/samples/sample.pascal.txt
@@ -0,0 +1,28 @@
+program GreetingsNumberOfTimes;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  System.SysUtils;
+
+var
+  greetingsMessage: string;
+  numberOfTimes, i: integer;
+
+begin
+  try
+    { TODO -oUser -cConsole Main : Insert code here }
+    greetingsMessage := 'Hello World!';
+    numberOfTimes := 10;
+
+    for i := 1 to numberOfTimes do
+    begin
+      Writeln(greetingsMessage);
+    end;
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.
\ No newline at end of file