diff options
author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
---|---|---|
committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2016-11-06 11:13:14 +0700 |
commit | 7de121c4b4ef888a0d1990c27144a7f9dd8c5f94 (patch) | |
tree | 2a298c9a957ad490cf8251ab264413f4effa9dce /12/TP-2008/R1/BL4.pas | |
parent | e4767bb46d1d759f9c863704e3f347d2a0c8c49a (diff) | |
download | cp-7de121c4b4ef888a0d1990c27144a7f9dd8c5f94.tar.gz |
Thêm đề HSG 12 huyện Vĩnh Tường, Vĩnh Phúc
Diffstat (limited to '12/TP-2008/R1/BL4.pas')
-rwxr-xr-x | 12/TP-2008/R1/BL4.pas | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/12/TP-2008/R1/BL4.pas b/12/TP-2008/R1/BL4.pas deleted file mode 100755 index 94dd3ba..0000000 --- a/12/TP-2008/R1/BL4.pas +++ /dev/null @@ -1,26 +0,0 @@ -var - f : text; - n : word; - a, b : array of longword; - tmp0, tmp1 : longword; - -procedure ins(var l : array of longword; x : longword); - begin - setlength(l, length(l) + 1); - l[length(l) - 1] := x - end; - -begin - setlength(a, 0); - setlength(b, 0); - assign(f, 'CLB.IN'); - reset(f); - readln(f, n); - for i := 1 to n do - begin - readln(f, tmp0, tmp1); - ins(a, tmp0); - ins(b, tmp1) - end; - close(f); - |