Дан массив 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.