Русалочка нашла на затоновшем корабле N золотых монет. Она разложила их в ряд и любуется *_*

С клавиатуры вводится ценность каждой монеты.

Выведите порядковый номер наиболее ценной монеты. Если таких несколько, то выведите номер первой из них.

Формат выходных данных
Одно число - номер самой ценной монеты.

1)первый ключ сразу подошел к двери.2)второй ключ подошел т.е проверили 2.3)третий подошел т.е проверили 3ключа.4)четвертый подошел т.е проверили 4 ключа.

наиболее простым способом перехвата информации является подслушивание.

прослушивание телефона тоже способ перехвата информации.

перехватчики информации в сети с программ снифферов.

перехватчики информации в компьютере это компьютерные вирусы.

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.