for i:= 1 to 10 do
  if something= a(i) then
    blablabla
  else
    blablabla
ולא:
for i:= 1 to 10 do
if something=a(i) then
blablabla
else
blablabla
מקווה שהבנת
 

program nothing;
uses wincrt;
type
maarah=array{1..20} of integer;
function test(a:maarah;num:integer):integer;
var i,j,d,before:integer;
begin
d:=0; 
for i:=1 to 20 do
begin
 if num=a{i} then
 begin
  before:=before+1;
  for j:=1 to before do
  if a{j}<num then
  d:=d+1;
 end
 else
  for j:=1 to 20 do
  if num=a{j}
  then d:=d+1;
 end;
 test:=d; 
 end;
 var z:array{1..20} of integer;
 s,mispar:integer; 
 
begin
  for s:=1 to 20 do
  readln(z{s});
  for s:=1 to 10 do
   begin
    readln(mispar);
    writeln(test(z,mispar));
   end;  
 end. 

program Dani15;
type
martype= array(1..20) of integer;
martype2= array(1..10) of integer;
var
numa: martype2;
mar: martype;
i: integer;
function test(A: martype, num: integer): integer;
var
i,j,count: integer;
begin
count:=0;
for i:= 1 to 20 do
   if num= a(i) then 
    for j:= 1 to num do
       if a(j)< num then
           count:= count+1;
   else
     for j:= 1 to 20 do
       if a(j)< num then
          count:= count+1;
test:= count;
end;
begin{tohnet}
for i:= 1 to 20 do
  readln(mar(i));
for i:= 1 to 10 do
  readln(numa(i));
for i:=1 to 20 do
 writeln(test(mar(i), numa(i)));
end.