N1=10;
var
a:array[1..n1]of integer;
x,n,i,j,k:integer;
begin
write('x='); read(x);
write('n='); read(n);
if (n>=1) and (n<=10) then<br>begin
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
end;
for i:=n downto 1 do
if a[i]=x then
begin
k:=i;
for k:=i to n-1 do
a[k]:=a[k+1];
a[n]:=0;
n:=n-1;
end;
for i:=1 to n do
writeln('a[',i,']',a[i]);
end
else write('error');
end.