From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <mcsinyx@disroot.org>
Date: Sat, 6 Jun 2020 21:33:13 +0700
Subject: Reorganize stuff from secondary school

---
 2ndary/THT/B/QG-2014/sample.pas | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 2ndary/THT/B/QG-2014/sample.pas

(limited to '2ndary/THT/B/QG-2014/sample.pas')

diff --git a/2ndary/THT/B/QG-2014/sample.pas b/2ndary/THT/B/QG-2014/sample.pas
new file mode 100644
index 0000000..c8b5e17
--- /dev/null
+++ b/2ndary/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.
-- 
cgit 1.4.1