составить программу для решения системы уравнений. значение x вводится с клавиатуры​

Program M;

Begin

real x, y;

write("Choose x:");

readln(x);

if (x>0)

then

y=sin(x)

else if (x<0)

then

y=cos(x)

else y=1

writeln("y=");readln(y);

end