1 files changed, 0 insertions, 46 deletions
diff --git a/09/TP-HN-2014/cau1.pas b/09/TP-HN-2014/cau1.pas
deleted file mode 100644
index 466d4c4..0000000
--- a/09/TP-HN-2014/cau1.pas
+++ /dev/null
@@ -1,46 +0,0 @@
-var
-  f: text;
-  a, b, g: int64;
-  c, d: smallint;
-
-
-function gcd(x, y: int64): int64;
-  var z: int64;
-
-  begin
-    while y <> 0 do
-      begin
-        z := y; 
-        y := x mod y;
-        x := z
-      end;
-
-    gcd := a
-  end;
-
-
-begin
-  assign(f, 'CAU1.INP');
-  reset(f);
-  read(f, a, b, c, d);
-  close(f);
-
-  a := a * d - c * b;
-  b := b * d;
-
-  g := gcd(a, b);
-
-  a := a div g;
-  b := b div g;
-
-  if b < 0 then
-    begin
-      a := -a;
-      b := -b
-    end;
-
-  assign(f, 'CAU1.OUT');
-  rewrite(f);
-  writeln(f, a, ' ', b);
-  close(f)
-end.