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

program s;
var
b:array[1..100] of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
b[i]:=i*i-4;
writeln(b[i]);
end;
end.