Add THT/B/QG-2014

1 files changed, 21 insertions, 0 deletions

diff --git a/THT/B/QG-2014/sample.pas b/THT/B/QG-2014/sample.pas
new file mode 100755
index 0000000..c8b5e17
--- /dev/null
+++ b/THT/B/QG-2014/sample.pas
@@ -0,0 +1,21 @@
+uses dic;
+
+var
+  answer1: char;
+  answer2, answer3, answer4: longint;
+
+begin
+  answer1 := get_char_at_pos(4);
+  writeln('Vi tri thu 4 cua xau can tim la: ', answer1);
+
+  answer2 := count_char('c');
+  writeln('So luong ki tu c trong tu can tim la: ', answer2);
+
+  answer3 := count_char('a');
+  writeln('So luong ki tu a trong tu can tim la: ', answer3);
+
+  answer4 := count_char('n');
+  writeln('So luong ki tu n trong tu can tim la: ', answer4);
+
+  answer('can');
+end.