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

uses crt;
var a,b,h: real;

function f(x: real): real;
begin
f:=x*cos(1/x)+2;
end;

begin
write('a: ');
read(a);
write('b: ');
read(b);
write('h: ');
read(h);
writeln('Полученный результат:');
writeln(' x | f(x) ');
while a<b do
begin
writeln(a:5:4,'|',f(a):5:4);
a:=a+h;
end;
end.