Написать программу на языке Паскаль, которая вычисляет
значение заданной в таблице функции 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.