Update others/volume1

1 files changed, 3 insertions, 15 deletions

diff --git a/others/volume1/004.pas b/others/volume1/004.pas
index caf5142..9ade431 100644
--- a/others/volume1/004.pas
+++ b/others/volume1/004.pas
@@ -1,7 +1,8 @@
+uses cmath;
+
 var
   prime: array [2..1000000] of boolean;
   i, j, n, k: longint;
-  b: boolean = true;
 
 begin
   for i := 2 to 1000000 do
@@ -12,20 +13,7 @@ begin
         prime[i * j] := false;
 
   readln(n, k);
-  if n < 2 then
-    writeln('FALSE')
-  else if n <= 1000000 then
-    writeln(prime[n])
-  else
-    begin
-      for i := 2 to trunc(sqrt(n)) do
-        if n mod i = 0 then
-        begin
-          b := false;
-          break
-        end;
-      writeln(b)
-    end;
+  writeln(isprime(n));
   for i := 2 to k do
     if prime[i] then
       write(i, ' ');