Помогите, пожалуйста, информатика (стандартные математические функции )

Question

Помогите, пожалуйста, информатика (стандартные математические функции )

---

Answer 1

Program test;
varx, y : real;
begin
writeln('Введите x, y: ');
readln(x,y);
writeln('1. ', sqrt(abs(y)-sqr(x)));
writeln('2. ', ((sqrt(x+1)-sqrt(y-1))/(2*sqrt(x*y))));
writeln('3. ', sqrt(1-sqr(sin(x))));
end.