var n,i:longint;
A:array[1..10000]of longint;
function kt(x:longint):longint;
var j,k:longint;
begin
kt:=0;
for j:=1 to n do
if A[j]=x then break;
for k:=1 to j-1 do
if A[k]>A[j] then inc(kt);
end;
begin
write('Nhap n: '); // đọc n
readln(n);
for i:=1 to n do // đọc mảng A
begin
write('Nhap phan tu thu ',i,' :');
readln(A[i]);
end;
write('day B can tim la :');
for i:=1 to n do // dùng function kt để xác định giá trị của ô Bi
write(kt(i),' '); 
end.