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

Program zadacha;vara: array[1..10] of integer;i,n: integer;beginfor i:=1 to 10 do read(a[i]);writeln();for i:=1 to 10 do begina[i]:=a[i]-i;write(a[i]:6);end;end.