Reorganize stuff from secondary school

1 files changed, 0 insertions, 30 deletions

diff --git a/12/TP-HN-2010/BAI1.PAS b/12/TP-HN-2010/BAI1.PAS
deleted file mode 100644
index 029201d..0000000
--- a/12/TP-HN-2010/BAI1.PAS
+++ /dev/null
@@ -1,30 +0,0 @@
-var
-  f : text;
-  i : 1..30;
-  a : array[0..30] of qword;
-
-function gcd(a, b : qword) : qword;
-  var tmp : qword;
-  begin
-    while b > 0 do
-      begin
-        tmp := b;
-        b := a mod b;
-        a := tmp
-      end;
-    gcd := a
-  end;
-
-begin
-  assign(f, 'bai1.inp');
-  reset(f);
-  readln(f, a[0]);
-  for i := 1 to a[0] do read(f, a[i]);
-  close(f);
-  for i := a[0] - 1 downto 1 do
-    a[i] := a[i] * a[i + 1] div gcd(a[i], a[i + 1]);
-  assign(f, 'bai1.out');
-  rewrite(f);
-  writeln(f, a[1]);
-  close(f)
-end.