Помогите пожалуйста!!! В паскале!!
Составить программу в которой значение каждого элемента массива равно раннее введённому значению минус порядковый номер

program r1;const N = 1; {вместо 1 подставьте необходимый размер массива}var i: integer; a: array[1..N] of real;begin write('a[1]='); readln(a[1]); for i := 2 to N do begin a[i] := a[i-1] - i; writeln('a[',i,']=',a[i]); end;end.