Написать программу на языке паскаль, которая вычисляет значение заданной в таблице функции y . вывести в окне программы результаты для трех вариантов переменной x.

Program b1;
var y,x1,x2,x3:Real;
Begin

Writeln('Write x1,x2,x3 : ');
Readln(x1,x2,x3);
if x1>4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-1))):10:20);
if x1>=0 then if x1<=4 then writeln(-2*x1:10:20);
if x1<0 then writeln(Exp(cos(x1)):10:20);

if x2>4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-1))):10:20);
if x2>=0 then if x2<=4 then writeln(-2*x2:10:20);
if x2<0 then writeln(Exp(cos(x2)):10:20);

if x3>4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-1))):10:20);
if x3>=0 then if x1<=4 then writeln(-2*x3:10:20);
if x3<0 then writeln(Exp(cos(x3)):10:20);

Readln(x1);
End.