Question

Очень надо, помогите пожалуйста. Задача по информатике.
Вычислить значение функции Y(x задается с клавиатуры)
Y равен системе: x, при x<-5
|x+2|, -5<x<5
cosx, x>5

Answer 1

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.