Для данного x вычислить значение функции: f(x)= {■((√(x+2 ) -5)/( x)@2x^2 +〖(x-1)〗^2/|x| ; x< 1)┤+ cosx+lnx; x≥1 решение написать на языке pascal.

Var x,y:real;
begin
writeln('Введите число:');
write(x);
y = 0;
if x>=1 then y:=(sqrt(x+2) - 5)/x + cos(x) + ln(x) else y:=2*x*x + (x-1)*(x-1)/abs(x);
writeln('Значение функции равно', у);
end.