Найдите значение функции у=56х2-32 на отрезке (1;10) с шагом 1.

Спасибо,можешь еще помочь?

Найдите сумму всех натуральных чисел от -15 до 15

//Pascal ABC.NET v3.1 сборка 1172Var y:real; i:integer;begin for i:=1 to 10 do  begin   y:=56*sqr(i)-32;   writeln('x=',i,' y=',y);  end;end.

var  i: integer;begin  for i := 1 to 10 do    writeln('x=', i:2, ' y=', (56 * sqr(i) - 32):4);end.