Add Pascal samples

microsoft · Mar 12, 2019 · dc033ae · dc033ae
1 parent ddbd714
commit dc033ae
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.