Ответ:
а)Входные программы
...........
Program M;
Begin
real x, y;
write("Choose x:");
readln(x);
if (x>0)
then
y=sin(x)
else if (x<0)
y=cos(x)
else y=1
writeln("y=");readln(y);
end
Код программы на скриншоте.
если зайти в интернет там найдёшь и ответ ДА