{program kivalogatas;
uses crt;
eljaras kivalogat(n:integer; x:tomb; db:integer; y:tomb);
 db:=0;
 for i:=1 to n do
    if t(x(i)) then db:=db+1
    y(db):=i;
    end;
end; }

{program metszet
eljaras metszet(constans n,m:egesz; x:tomb[1..n:h];
                  z:tomb[1..m:h]; s:tomb[1..min:h]);
                  var i,j:integer;
                  db:=0
                  for i:=to n do
                  j:=1;
                   while j<=m and x(i)<>z(i)
                   j:=j+1;
                   end;
                   if j<>m then db:=db+1;
                   s(db):=x(i);
                   end
                  end;
end; }




{procedure Szetval (Const n:integer; var db:integer; x:tomb[1..n:h]);
var sv:h;
     e,u:integer;
begin
sv:=x[1];
e:=1;
u:=n;
while e<u do begin
     while (e<u) and not t(x[u])  do
       u:=u+1;
   end;
   If e<u then
   begin x[e]:=x[u];
                     e:=e+1;
               while (e<u) and t(x[e])   do
                   e:=e+1;
     if e<u then
     begin x[u]:=x[e];
           u:=u-1;
     end;
   end;
ciklus end;
x[e]:=sv;
if t(x[e]) then db:=e
          else db:=e-1;
end;
 eljarasvege;  }