Add Pascal samples (#1358)

Add Pascal samples
microsoft · Sep 19, 2019 · 40cf59f · 40cf59f
2 parents 1579caf + dc033ae
commit 40cf59f
Show file tree

Hide file tree

Showing 2 changed files with 57 additions and 0 deletions.
diff --git a/test/samples/sample.pascal.txt 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
@@ -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.