From 2a7bc10f6c011d19fb3b0e73068f7e1a9c30ace0 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Sat, 8 Oct 2016 09:56:43 +0700 Subject: Initial commit --- 12/TP-2008/R1/BL4.pas | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100755 12/TP-2008/R1/BL4.pas (limited to '12/TP-2008/R1/BL4.pas') diff --git a/12/TP-2008/R1/BL4.pas b/12/TP-2008/R1/BL4.pas new file mode 100755 index 0000000..94dd3ba --- /dev/null +++ b/12/TP-2008/R1/BL4.pas @@ -0,0 +1,26 @@ +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); + -- cgit 1.4.1