Вывести таблицу значений функции у=3х-5х2 на отрезке [-10;10] с шагом 1. Решить 2 способами (for…to…do…, while…do…)

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.