Вычислить значения функции y=7x³-3x²+15для значений x,  изменяющихся от -1 до 2 с шагом 0.2.

Решение.

Uses crt;

Var

y,x,a,b,h:real;

begin

x:=-1;

b:=2;

h:=0.1;

while x

begin