Создать массив, каждый элемент которого рассчитывается по формуле: i^2-1, где i – индекс элемента массива. вывести полученный массив на экран, расположив каждый элемент в отдельной строке.

Program abc;
const
   n = 10;
var
   m: array [1..n] of integer;
   i: integer;
begin
for i := 1 to n do
   begin m[i] := sqr(i) - 1;
   writeln(m[i]);
end;
end.