var a:array[1..200000]of longint;

       i,n,,k1,k2:longint;

begin

 writeln('nhap so phan tu cua mang');readln(n);

 writeln('nhap lan luot so phan tu cua mang');

for i:=1 to n do 

 readln(a[i]);

writeln('nhap so can xoa ');readln(k1);

for i:=1 to n do 

 if a[i] =k1 then begin

 for k2:=i+1 to n do

  a[k2-1]:=a[k2];

 n:=n-1;

end;

writeln('mang sau khi xoa cac phan tu mang gia tri cua x');

for i:=1 to n do 

 write(A[I],' ');

writeln;writeln('nhap gia lan luot gia tri can them va vi tri them');

readln(k1,k2);

for i:=k2 to n do 

 a[i+1]:=a[i];

n:=n+1;

a[k2]:=k1;

writeln('mang sau khi chen gia tri y');

for i:=1 to n do

 write(a[i],' ');

readln;

end.