about summary refs log tree commit diff
path: root/12/TP-2008/R1/BL4.pas
diff options
context:
space:
mode:
Diffstat (limited to '12/TP-2008/R1/BL4.pas')
-rwxr-xr-x12/TP-2008/R1/BL4.pas26
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);
-