Дан массив K(N), N-12. В массиве есть один элемент, значение которого равно 100. Определить его порядковый номер. Вычислить сумму значений элементов массива, стоящих перед элементом, значение которого равно 100.

const n=12;
var a:array[1..n] of integer;
i,s:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do a[i]:=random(101);
a[random(n)+1]:=100;
for i:=1 to n do write(a[i]:4);
writeln;
s:=0; i:=1;
while a[i]<>100 do
 begin s:=s+a[i]; i:=i+1; end;
writeln('Номер элемента = 100: ',i);
writeln('s = ',s);
end.

Пример:
Массив A:
  76  40  46  50 100  96  86  29   4  13  80  98
Номер элемента = 100: 5
s = 212