составить программку для вычисления значения функции F(x)=x*cos(1/x)+2 на отрезке [a,b] с

program zz1;
var x,y,h:real; //задаем переменные
a, b:integer;
begin
write(введите значение а ); //вводим с клавиатуры изначальное число
read(a);
write(введите значение b ); //вводим с клавиатуры конечное число
read(b);
write(введите значение шага h ); //вводим с клавиатуры шаг
read(h);
x:=a; //задаем изначальное значение довода
while xlt;=b do //организуем цикл, пока аргумент не достигнет конечного числа
begin
y:=x*cos(1/x)+2; //вычисляем значение функции
x:=x+h; //увеличиваем аргумент на шаг
writeln( для х = ,x:5:2, y = ,y:5:2); //выводим ответ, 5 символов для всего числа и два знака после точки
end;
end.