Составить программу табулирования функции 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 xlt;=b do begin

y:=1-5*x+sqr(x)*x;

writeln(x, ,y);

x:=x+h;

end;

end.