Вывести на экран таблицу значений функции y=x^2-4 для x=1,3,5,7,9,11,13,15 (free pascal) ! !

Var i : Integer;
Begin
  For i:=1 to 8 do Writeln('x = ',i*2-1,'  y = ',sqr(i*2-1)-4);
end.