Thêm đề HSG 12 huyện Vĩnh Tường, Vĩnh Phúc

1 files changed, 15 insertions, 0 deletions

diff --git a/9/Q-Huế-2014/bai1.pas b/9/Q-Huế-2014/bai1.pas
new file mode 100644
index 0000000..7bd0d92
--- /dev/null
+++ b/9/Q-Huế-2014/bai1.pas
@@ -0,0 +1,15 @@
+var
+  n, m, p: qword;
+
+begin
+  read(n, m);
+
+  while m <> 0 do
+    begin
+      p := n mod m;
+      n := m;
+      m := p
+    end;
+
+  writeln(n <> 1)
+end.