Вывести таблицу значений функции у=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.