Update others/volume1

1 files changed, 2 insertions, 26 deletions

diff --git a/others/volume1/096.pas b/others/volume1/096.pas
index 4cb877c..b204835 100644
--- a/others/volume1/096.pas
+++ b/others/volume1/096.pas
@@ -1,34 +1,10 @@
-uses math, strutils;
+uses clib;
 
 var
   a, b: ansistring;
-  n: int16;
-  remain: boolean = false;
-  d: uint8;
 
 begin
   readln(a);
   readln(b);
-  n := max(length(a), length(b)) + 1;
-  a := addchar('0', a, n);
-  b := addchar('0', b, n);
-  repeat
-    if remain then
-      d := ord(a[n]) + ord(b[n]) - 47
-    else
-      d := ord(a[n]) + ord(b[n]) - 48;
-    if d > 57 then
-      begin
-        dec(d, 10);
-        remain := true
-      end
-    else
-      remain := false;
-    a[n] := chr(d);
-    dec(n)
-  until n = 0;
-  if ord(a[1]) = 48 then
-    writeln(copy(a, 2, length(a) - 1))
-  else
-    writeln(a)
+  writeln(addintstr(a, b))
 end.