Помогите, пожалуйста…

Var x,f: real; beginwriteln ('Введите х: ') readln (x); f: =0; if x>=1 then f: =(sqrt (x+2) — 5) /x+cos (x)+ln (x); if x<1 then f: =2*sqr (x)+(sqr (x-1) /abs (x); writeln ('Значение функции f (x) равно: ', f); end.