Построить одномерный массив по правилу: i-ый элемент равен i-100

Program n1;const n=10;var a: array[1..n] of integer;i: integer;beginfor i:=1 to n do a[i]:=i-100;end.

Program prog;Uses crt;var a: array[1..100]  of integer;    i, n: integer;    beginclrscr;write('Size = ');readln(n);for i:=1 to n dobegina[i]:=i-100;write('a[',i,']=', a[i],'  ');end;end.