// 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