Задача 4.3.Обчислити значення виразу:

Program pr4_3;
var x,y:real;
begin Write('Введіть х='); ReadLn(x);
if (-1<=x) and (x<=1) then y:=sin(x);
if x>1 then y:=cos(x);
if x<-1 then y:=sin(x)/cos(x);
WriteLn('X=',x:5:2,' Y=',y:5:2)
End.

Результати роботи програми:
Введіть х=0
X= 0.00 Y= 0.00

Введўть х=2
X= 2.00 Y=-0.42

Введўтьх=-2
X=-2.00 Y= 2.19

Завдання 4.3. Обчислити: