about summary refs log tree commit diff
path: root/12/TP-HN-2008/R1/BL1.PAS
diff options
context:
space:
mode:
Diffstat (limited to '12/TP-HN-2008/R1/BL1.PAS')
-rw-r--r--12/TP-HN-2008/R1/BL1.PAS26
1 files changed, 0 insertions, 26 deletions
diff --git a/12/TP-HN-2008/R1/BL1.PAS b/12/TP-HN-2008/R1/BL1.PAS
deleted file mode 100644
index 6931b1b..0000000
--- a/12/TP-HN-2008/R1/BL1.PAS
+++ /dev/null
@@ -1,26 +0,0 @@
-uses math;
-
-var
-  f : text;
-  m, n, i : byte;
-  a, b : double;
-j
-begin
-  assign(f, 'LT.IN');
-  reset(f);
-  read(f, n, m);
-  close(f);
-  a := 1;
-  for i := 1 to n do
-    a := a * 2;
-  b := 1;
-  for i := 1 to m do
-    b := b * 3;
-  a := a + b;
-  for i := 1 to trunc(log10(a)) do
-    a := a / 10;
-  assign(f, 'LT.OU');
-  rewrite(f);
-  writeln(f, trunc(a));
-  close(f)
-end.