Вася решил серьезно заняться логистикой и создать собственную фирму. Он выяснил, в каких городах наблюдается дефицит надувных воздушных шариков, и решил отправить в каждый город партию шариков отдельным грузовиком. Однако выяснилось, что у каждого шофера грузовика свой тариф за 1 километр пути . Вася знает, сколько километров нужно проехать до каждого города. Теперь он хочет определить, каким грузовиком нужно отправить партию товара в каждый город, чтобы затраты его фирмы на доставку были минимальны.
Формат ввода
В первой строке входного файла записано натуральное число N (1 ≤ N ≤ 1000) – количество партий воздушных шариков (совпадающее с количеством заказанных грузовиков).
Во второй строке записано N чисел, задающих расстояния в километрах, которые нужно преодолеть каждой партии шариков (первое число – для первой партии, второе – для второй и т.д.). Все расстояния – натуральные числа, не превосходящие 1000.
На следующей строке записано еще N чисел – тарифы за один километр для доставки партии товара грузовиком (первое число – для первого грузовика, второе – для второго и т.д.).
Тарифы выражаются натуральными числами, не превосходящими 10000.
Формат вывода
В выходной строке выведите N чисел. Первое число — номер грузовика, который должен доставить первую парию, второе число — номер грузовика, который должен доставить вторую парию и т.д., чтобы затраты фирмы на доставку были минимальны. Если вариантов распределения партий по грузовикам несколько, выведите любой из них.
Пример 1
Ввод Вывод
3
10 20 30
50 20 30
1 3 2
Var
s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
while pos(' в ',s)<>0 do
begin
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
delete(s,1,pos(' в ',s)+2);
end;
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s:=s1+s;
writeln(s);
end.
Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь
Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.