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

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.