1 files changed, 2 insertions, 11 deletions
diff --git a/others/volume1/030.pas b/others/volume1/030.pas
index 95490f2..ffa983b 100644
--- a/others/volume1/030.pas
+++ b/others/volume1/030.pas
@@ -1,17 +1,8 @@
+uses clib;
+
 var
   s: ansistring;
 
-function ispalindrome(s: ansistring): boolean;
-  var
-    n, i: int32;
-  begin
-    n := length(s);
-    for i := 1 to n do
-      if s[i] <> s[n - i + 1] then
-        exit(false);
-      ispalindrome := true
-  end;
-
 begin
   readln(s);
   if ispalindrome(s) then