uses wincrt;
const
     maks = 10;
     
type
    larikint = array[1..maks]of integer;

var
x,y,z:larikint;
ketemu:boolean;
n,m,i,j:integer;

procedure baca(n:integer; var x:larikint);
begin
for i:=1 to n do
begin
     readln(x[i]);
end;
end;

procedure cetak1(n:integer; x:larikint);
begin
for i:=1 to n do
begin
     write(x[i]);
     writeln;
end;
end;

procedure cari(n,m:integer; x:larikint);
begin
ketemu:=false;
i:=1;
while (ketemu=false) and (i<=n) do
begin
     if (x[i]=m) then
        ketemu:=true;
     i:=i+1;
end;
if ketemu=false  then
   writeln('data tidak ketemu')
else 
  begin
     for j:=i to n do
     begin
          x[j-1]:=x[j];
     end;  
  end;
cetak1(n,x);
end;
{program utama}
begin
write('input banyaknya dat : '); readln(n);
baca(n,x);
cetak1(n,x);
readln(m);
cari(n,m,x);
end.