Напиши программу которая выводит на экран значения функции y=f(x)аргументы x прнимает значения от x1 до x2 с шагом (дельта)x

Var x1,x2, dx, x:integer;

begin
readln(x1, x2, dx);
x:=x1;
write(x:3);
writeln(y:3);
repeat
write(x:3);
writeln(x*2:3);
x:=x+dx;
until xgt;x2;
end