Составить программу табулирования функции Y на отрезке [a;b] с шагом h. 1-5x+x^3
program zadacha;
var
x,y,a,b,h:integer;
begin
writeln('vvedite tri chisla');
readln(a,b,h);
x:=a;
write('x y');
writeln();
while x<=b do begin</p>
y:=1-5*x+sqr(x)*x;
writeln(x, ' ',y);
x:=x+h;
end;
end.