протабелювати функцію y=x*cos*2x на проміжку від -1 до 1 з кроком h=0,2. Визначити суму додатних значень. Паскаль.

program func;const  H = 0.2;var  i, y, sum: real;function Func(x:real):real;begin  Func := x * Cos( (2 * x) );end;begin  i := -1;  sum := 0;  while i<=1 do  begin    y := Func(i);    if y>0 then      sum := sum + y;    i := i + H;  end;end.