Дан целочисленный массив из 6 элементов.
1. Найти и вывести номер первого элемента массива , который имеет нечётное значение.
2. Найти и вывести сумму элементов массива , которые делятся на последний элемент и меньше , чем первый.

Большое спасибо Вам , сударь! )Вы меня очень выручили!

var mas: array [1..6] of integer;var i, b, sum: integer;beginfor i:=1 to 6 do mas[i]:=random(101);b:=0;while i<=6 do if mas[i] mod 2<>0 then   begin   b:=i;   i:=7;   end  else inc (i);sum:=0;for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];writeln (b);writeln (sum);end.