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
y:=1-5*x+sqr(x)*x;
writeln(x, ' ',y);
x:=x+h;
end;
end.
![Составить программу табулирования функции y на отрезке [a; b] с шагом h. 1-5x+x^3](/tpl/images/0694/0882/68b10.jpg)
