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