Подскажите что не так? пишет ошибку: нет индексного свойства по умолчанию для функционального типа program chisl; var a: array[1..10]of integer; i: integer; begin for i: =1 to 10 do begin writeln['a[',i,']=']; read(a[i]); end; if a[i] mod 2 = 0 then begin write ('a[i]=',a[i]); end; end.