program r7_98;
uses crt;
const Nmax=100;
type TArr=array[1..Nmax] of integer;
Var A:TArr;
       n,i:integer;
Procedure Shiftleft(var pos, n:integer;
                dsp:integer;var A:TArr);
var i:integer;
Begin
  for i:=pos to n-dsp do A[i]:=A[i+dsp];
  n:=n-dsp;
End;
Function Numberin(x,y:integer):boolean;
var i:integer;
Begin
  Repeat
   i:=x mod 10;
   x:=x div 10;
  Until (x=0)or(i=y);
if i=y
  then Numberin:=true
 else Numberin:=false;
End;
BEGIN
clrscr;
randomize;
readln(n);
for i:=1 to n do
  begin
   A[i]:=random(50);
   write(A[i]:4,' ');
  end;
i:=1;
while i<=n do
  if Numberin(abs(A[i]),5)
   then Shiftleft(i,n,1,A)
  else Inc(i);
writeln('Новый массив:');
  for i:=1 to n do
  write(A[i],' ');
END.