Вычислить значение выражения по формуле (все переменные принимают действительные значения). (PascalABC.NET), задание номер 13,20,23.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin   var x,y:real;   Write('Введите x и y: '); Read(x,y);   // 13   Writeln(cos(x)/(pi-2*x)+16*x*cos(x*y)-2);   // 20   Writeln((1+sin(sqrt(sin(x)+1)))/cos(12*y-4));   // 23   Writeln(Power(3,x)-4*x+(y-sqrt(abs(x)))) end. Тестовое решение Введите x и y: 2.15 4.1 -29.7277579658493 5.71678202339215 4.64604098127078