составить программу вычесления значений функции y=x*sin x для значений x. из интервала (-п,п) с шагом 0.3

Так... Вот)

var
  x: real;

begin
  x := -1 * pi;
  while x <= pi do
  begin
    writeln('y(', x:1:5, ') = ', x * sin(x));
    x := x + 0.3;
  end;
end.