В массиве B1, B2, ... Bn найти первое положительное число и напечатать его номер. Язык програмирования ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

program FindFirstPositiveNumber;
var
B: array[1..10] of integer;
i: integer;
begin
// Заполнение массива B данными
for i := 1 to 10 do
begin
write('B', i, ': ');
readln(B[i]);
end;

// Поиск первого положительного числа
for i := 1 to 10 do
begin
if B[i] > 0 then
begin
writeln('Первое положительное число найдено в ячейке: ', i);
break;
end;
end;
end.