Напиши программу которая выводит на экран значения функции 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 x>x2;
end