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.