Вывести индекс первого положительного элемента числовой последовательности. известно, что такой элемент существует.

Var
A:real;
i:integer;
Begin
i:=0;
WriteLn('Введи элементы последовательности через пробел');
Repeat
Read(A);
i:=i+1
Until A>0;
Write(i)
End.