Cоставить таблицу значений функции используя оператор цикла с парамертром y=exp(sin(x))*cos(x) x-принадлежит [0; 14] шаг 0,1

Const
  a = 0.0;
  b = 14.0;
  h = 0.1;

var
  x, y: real;
  i:integer;
begin
  for i := 1 to Trunc((b - a) / h + 1) do
  begin
    x := a + (i - 1) * h;
    y := exp(sin(x)) * cos(x);
    writeln('x=', x:4:1, '  y=', y)
  end
end.