Построить таблицу зависимости xy на отрезке от a до b, с шагом h=0,1 , y=x×sin x в програме паскаль. , !

Program nanomachines;
var x,y,a,b:real;
begin
read(a,b);
writeln('a=',a,' b=',b);
if a>b then
begin
x:=b;
while x<a do
begin
x:=x+0.1;
y:=x*sin(x);
end;
end else
begin
x:=a;
while x<b do
begin
x:=x+0.1;
y:=x*sin(x);
end;
end;
writeln('x=',x);
writeln('y=',y);
end.