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)  endend.