Вывести таблицу значений функции у=3х-5х2 на отрезке [-10; 10] с шагом 1. решить

Var i:integer;
begin
  //Первый
  for i:= -10 to 10 do
  begin
    writeln('При x = ', i, '  y = ', 3*i-5*i*i);
  end;
  //Второй
  i:= -10;
  while(i <= 10) do
  begin
    writeln('При x = ', i, '  y = ', 3*i-5*i*i);
    i:= i + 1;
  end;
end.