// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a,b:real;
Write('Введите через пробел a и b: '); Read(a,b);
var y:=ArcSin(a)+ArcCos(b)+Sqrt(Abs((a-b)-Sqr(a-b)));
Writeln(y)
end.
Тестовое решение
Введите через пробел a и b: 0.64 -0.328
2.77548026315973