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

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.