Составить программу вычисления значений функции F(x) на отрезке [a ; b] с шагом h. Результат представить в виде таблицы. Первый столбец которой - значения аргументов, второй - соответствующие значения функции: F(x) = xcos(1/x)+2.

var a,b,h,x,f:real; n,i:integer;beginwrite('a=');readln(a);write('b=');readln(b);h:=0.2;x:=a-h;n:=round((b-a)/h)+1;writeln(' №    x     f(x)');for i:=1 to n dobegin x:=x+h; write(i:2,'  ',x:4:1,' '); if abs(x)>1e-16  then writeln(x*cos(1/x)+2:8:4)  else writeln(' функция не определена'); end;end.Пример:a=-1b=1 №    x     f(x) 1  -1.0   1.4597 2  -0.8   1.7477 3  -0.6   2.0574 4  -0.4   2.3205 5  -0.2   1.9433 6   0.0  функция не определена 7   0.2   2.0567 8   0.4   1.6795 9   0.6   1.942610   0.8   2.252311   1.0   2.5403