Program zad;
uses crt;
var x,y:array[1..20] of integer;
f,k,m,n,i:integer;
begin
clrscr;
randomize;
n:=10;
for k:=1 to n do
begin
x[k]:=random(15)+3;
write(x[k]:5);
end;
writeln;
m:=0;
for k:=1 to n do
if x[k]>10 then begin
m:=m+1;
y[m]:=k;
writeln(y[m],'-',x[k]);
end;
for k:=m downto 1 do begin
n:=n+1;
for i:=n downto y[k]+1 do x[i]:=x[i-1];
x[y[k]]:=0;
end;
writeln('n=',n);
for k:=1 to n do
write(x[k]:5);
readln;
end.