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.

Answer 2

огроооомное спасибо)