в массиве хранится информация о количестве осадков (целые числа), выпавших за каждый день прошедшей недели. Вывести номера дней, когда осадков не было

uses crt;

var i:integer;

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

begin

for i:=1 to 7 do begin

a[i]:=random (10) ;

write (a[i]:3) ;

end;

writeln;

write ('Номера дней, в которые не было осадков: ') ;

for i:=1 to 7 do begin

if a[i]=0 then write (i:2) ;

end;

writeln;

end.

Здесь количество осадков - случайная цифра от 0 до 9. Если нужно сделать ввод чисел вместо случайных, вместо строчки a[i]:=random (10) ; пишем read (a[i]) ;