Program p7117;
const maxn=10;
type myarray=array[0..maxn] of integer;
var a:myarray;
k,t,i,n:integer;
procedure shiftright( i:integer;var n:integer;k:integer;var a:myarray);
var j:integer;
begin
for j:=n downto i do
a[j+k]:=a[j];
n:=n+k;
end;
begin
write('vv n');
readln(n);
writeln('vv massiv');
for i:=1 to n do
read(a[i]);
writeln('vv k i t');
readln(k,t);
i:=1;
while i<=n do begin
if a[i] mod t=0 then begin
shiftright(i,n,1,a);
a[i]:=k;
inc(i);
end;
inc(i);
END;
for i:=1 to n do
write(' ',a[i]);
writeln;
end.