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.
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.