Надо, . по информатике. вычислить значение функции y(x задается с клавиатуры) y равен системе: x, при x< -5 |x+2|, -55

Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.