Update others/volume1

1 files changed, 16 insertions, 0 deletions

diff --git a/others/volume1/024.pas b/others/volume1/024.pas
new file mode 100644
index 0000000..affcbaa
--- /dev/null
+++ b/others/volume1/024.pas
@@ -0,0 +1,16 @@
+uses cmath;
+
+var
+  n: int64;
+  b: boolean;
+
+begin
+  readln(n);
+  b := isprime(n);
+  while b and (n > 9) do
+    begin
+      n := n div 10;
+      b := b and isprime(n)
+    end;
+  writeln(b)
+end.