В массиве B1, B2, ... Bn найти первое положительное число и напечатать его номер. Язык програмирования ПИТОН!

Program chislo;
var B=array[1..n] of integer;
var k, i: integer;
begin
k:=0;
read(n);
for i:=1 to n do
B[i]=-1000 random(1000);
for i:=1 to n do
k:=k+1;
if (B[i]>0)
then write(k);
end.

Program XXX;
var i, n, k : integer;
     b : array [1..100] of real;
begin
write ('введите n=');
readln(n);
write ('введите массив b :');
for i:=1 to n do
read(b[i]);
k:=0;
i:=1;
while (i<=n) and (k=0) do
  if b[i]>0 then k:=i else i:=i+1;
if k=0 then write('положительных элементов - нет')
         else write('номер первого положительного элемента-', k )
end.

Var b:array[1..1000]of longint; i,n:longint; begin readln(n); for I:=1 to n do. readln(b[I]); for I:=1 to n do if b[I]>0 then begin writeln(I);break;end; end.