Пожалуйста Пожалуйста посчитайте с Паскалем

vary,x:real;beginwriteln('Введите число x: ');readln(x);if x<-2 then writeln('при х=',x,'  y=',sqrt(abs(x)))elseif (x=-2) and (x<3) then writeln('при х=',x,'  y=',sin(1/sqr(x)))elseif x>=3 then writeln('при х=',x,'  y=',ln(sqr(x)));end.