Update others/volume1

1 files changed, 20 insertions, 0 deletions

diff --git a/others/volume1/053.pas b/others/volume1/053.pas
new file mode 100644
index 0000000..f3c8a4e
--- /dev/null
+++ b/others/volume1/053.pas
@@ -0,0 +1,20 @@
+var
+  n, i: int16;
+  a: array of int32;
+  v: int32;
+
+begin
+  readln(n);
+  setlength(a, n + 1);
+  for i := 0 to n - 1 do
+    read(a[i]);
+  readln(i, v);
+  repeat
+    a[n] := a[n - 1];
+    dec(n)
+  until n = i;
+  a[i - 1] := v;
+  for i := 0 to length(a) - 2 do
+    write(a[i], ' ');
+  writeln(a[length(a) - 1])
+end.