Update others/volume1

1 files changed, 19 insertions, 0 deletions

diff --git a/others/volume1/028.pas b/others/volume1/028.pas
new file mode 100644
index 0000000..f135a67
--- /dev/null
+++ b/others/volume1/028.pas
@@ -0,0 +1,19 @@
+var
+  a, i: int16;
+  b: array[0..9999] of boolean;
+
+begin
+  for i := 0 to 9999 do
+    b[i] := false;
+  readln(a);
+  for i := 0 to 9999 do
+    begin
+      b[a] := true;
+      a := sqr(a) div 100 mod 10000
+    end;
+  a := 0;
+  for i := 0 to 9999 do
+    if b[i] then
+      inc(a);
+  writeln(a)
+end.