Составить программу табулирования функции y=f(x) на отрезке [a, b] - Turbo Pascal (33618)

Формулировка задачи:

составить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m где m – заданное число. Оператор цикла for. Функция a b m xsin(x) 0 3pi 10/ Не могу найти ошибку в программе. Помогите пожалуйста
const
a=0;
b=3*Pi;
m=10;
var
x,y,h,i:real;
n:integer;
begin
h:=(b-a)/m;
x:=a;
n:=trunc(h)+1;
for i:=1 to n do
begin
y:=x*sin(x);
writeln('X= ',x:6:1,'Y= ',y:6:2);
x:=x+h;
end;
readln;
end.

Код к задаче: «Составить программу табулирования функции y=f(x) на отрезке [a, b] - Turbo Pascal (33618)»

textual
const a=0;
      b=3*Pi;
      m=10;
var x,y,h:real;
    i:integer;
begin
h:=(b-a)/(m-1);
x:=a;
for i:=1 to m do
 begin
   y:=x*sin(x);
   writeln('X=',x:5:2,'  Y=',y:6:3);
   x:=x+h;
  end;
readln;
end.

15   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ