Reorganize stuff from secondary school

1 files changed, 46 insertions, 0 deletions

diff --git a/2ndary/09/TP-HN-2014/cau1.pas b/2ndary/09/TP-HN-2014/cau1.pas
new file mode 100644
index 0000000..466d4c4
--- /dev/null
+++ b/2ndary/09/TP-HN-2014/cau1.pas
@@ -0,0 +1,46 @@
+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.