Программирование,11 класс!!! Протабулируйте функцию на промежутке y=xcos2x на промежутке (-2:2) с шагом 0,2 и вычислите количество положительных значений!!!!!

const xn=-2; xk=2; h=0.2; var x,y:real; i,n,k:integer; begin x:=xn-h; n:=round((xk-xn)/h)+1; k:=0; writeln(' x     y'); for i:=1 to n do  begin  x:=x+h;  y:=x*cos(2*x);  if y>0 then k:=k+1;  writeln(x:4:1,y:7:3);  end; writeln('k=',k); end. Результат:  x     y -2.0  1.307 -1.8  1.614 -1.6  1.597 -1.4  1.319 -1.2  0.885 -1.0  0.416 -0.8  0.023 -0.6 -0.217 -0.4 -0.279 -0.2 -0.184  0.0  0.000  0.2  0.184  0.4  0.279  0.6  0.217  0.8 -0.023  1.0 -0.416  1.2 -0.885  1.4 -1.319  1.6 -1.597  1.8 -1.614  2.0 -1.307 k=10

var x,y,h: real;    k: integer;begin  h:=0.2;  x:=-2+h;  k:=0;  repeat    y:=x*cos(2*x);    if y>0 then k:=k+1;    x:=x+h;  until x>2-h;  if k>0 then writeln('количество положительных:  ',k)  else writeln('нет положительных значений');end.