about summary refs log tree commit diff
path: root/THT/B/QG-2014/sample.pas
diff options
context:
space:
mode:
Diffstat (limited to 'THT/B/QG-2014/sample.pas')
-rw-r--r--THT/B/QG-2014/sample.pas21
1 files changed, 0 insertions, 21 deletions
diff --git a/THT/B/QG-2014/sample.pas b/THT/B/QG-2014/sample.pas
deleted file mode 100644
index c8b5e17..0000000
--- a/THT/B/QG-2014/sample.pas
+++ /dev/null
@@ -1,21 +0,0 @@
-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.