uses crt;
var x,y,dx,a,b:real;
begin
clrscr;
write('Начальное и конечное значение (A>B)-> ');
readln(a,b);
write('Шаг (>0) -> ');
readln(dx);
x:=a;
writeln('==X======Y==')
while x<=b do
begin
y:=2*x*x;
writeln(x:2:3,' ',y:2:3);
x:=x+dx;
end;
readln;
end.