Вычислить и вывести на экран значение функции Y=Y(x) для всех x из диапазона (XL, XR) с шагом k (k< XR–XL). Для всех значений x, в которых функция Y(x) не существует вывести сообщение "Функция не существует". Числа XL, XR, k пользователь вводит с клавиатуры. Значение функции выводить с точностью до 2 цифр после десятичной точки
Функция: Y=|sinx|+cos|x|

var  xl,xr,h,x:real;  i:integer;begin  Write('Введите левую и правую границы изменения х, затем шаг: ');  Read(xl,xr,h);  for i:=1 to Trunc((xr-xl)/h)+1 do begin    x:=xl+(i-1)*h;    Writeln(x:0:4,'  ',abs(sin(x))+cos(abs(x)))    endend.ПримерВведите левую и правую границы изменения х, затем шаг: 1.2 3 0.181.2000  1.29439684044391.3800  1.171494361670191.5600  1.010737837288231.7400  0.8173217308864761.9200  0.5974958225344272.1000  0.3583632620490172.2800  0.1076510476533762.4600  -0.1465396535374012.6400  -0.3959952754056332.8200  -0.6326552546260533.0000  -0.848872488540578