Найти индексы всех элементов массива, значение которого равно нулю, если таковой существует

var

a : array [1 ... 1000] of integer;

n, i : integer;

begin

write ('Введите количество элементов') ;

readln (n) ;

write ('Введите массив') ;

for i : = 1 to n do read (a[i]) ;

writeln ('Элементы с нулевым значением: ') ;

for i : = 1 to n do

if a[i] = 0 then write (i, ' ') ;

end.