1 files changed, 0 insertions, 57 deletions
diff --git a/12/TP-HN-2008/R1/BL2.PAS b/12/TP-HN-2008/R1/BL2.PAS
deleted file mode 100644
index e228240..0000000
--- a/12/TP-HN-2008/R1/BL2.PAS
+++ /dev/null
@@ -1,57 +0,0 @@
-type
-  rect = record
-    a : longint;
-    b : longint
-  end;
-  arec = array of rect;
-
-var
-  f : text;
-  c, d, e : rect;
-
-function join(g, h : rect) : arec;
-  var n : byte = 0;
-  procedure j01n(p, q : longint);
-    begin
-      inc(n);
-      setlength(join, n);
-      join[n - 1].a := p;
-      join[n - 1].b := q
-    end;
-  begin
-    if g.a = h.a then j01n(g.a, g.b + h.b);
-    if g.a = h.b then j01n(g.a, g.b + h.a);
-    if g.b = h.a then j01n(g.b, g.a + h.b);
-    if g.b = h.b then j01n(g.b, g.a + h.a);
-  end;
-
-procedure out(m : longint);
-  begin
-    assign(f, 'GH.OU');
-    rewrite(f);
-    writeln(f, m);
-    close(f);
-    halt
-  end;
-
-procedure libl2(x, y, z : rect);
-  var i, j : rect;
-  begin
-    for i in join(x, y) do
-      for j in join(z, i) do
-        if (j.a = j.b) and (j.a <> 0) then
-          out(j.a)
-  end;
-
-begin
-  assign(f, 'GH.IN');
-  reset(f);
-  readln(f, c.a, c.b);
-  readln(f, d.a, d.b);
-  readln(f, e.a, e.b);
-  close(f);
-  libl2(c, d, e);
-  libl2(d, e, c);
-  libl2(e, c, d);
-  out(0)
-end.