Дан массив B[1..N] N<=100 заполнить эл.массивы о формуле B[i]:=
i^{2} -4 . Вывести полученные значения на экран.Помогите пожалуйста срочно!

program s;varb:array[1..100] of integer;i,n:integer;beginread(n);for i:=1 to n dobeginb[i]:=i*i-4;writeln(b[i]);end;end.