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

program test;varx, y : real;beginwriteln('Введите 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.