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

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