Помогите составить программу для вычисления значения функции y для заданного значения xу=...

Question

Помогите составить программу для вычисления значения функции y для заданного значения x
у= если x<-3 то <br>y= √1 - x²
если 1,5y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы

Answer 1

var
x,y:real;
begin
readln(x);
if x<-3 then<br>y:=sqrt(1)-x*x
else if (x>=-3) and (x<=1.5) then<br>y:=1/(abs(x+2))
else if x>1.5 then
y:=sin(x)/cos(x);
writeln(y);
end.