Помогите пожалуйстаа решить задачу массив a [i]=15-4i подсчитать количество…

var a: array[1… 15] of integer; i, count: integer; begin count: =0; writeln ('Индексы отрицательных элементов: '); for i: =1 to 15 do begin a[i]: =15 — 4*i; if a[i] < 0 then begin inc (count); write (i, '); end; end; writeln; writeln ('Вего отрицательных элементов — ', count); end.