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

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  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.72775796584935.716782023392154.64604098127078