необходимо написать две программки

c. Program n1;

Var

x:integer;

Begin

Read(x);

If x =0 then writeln('y=sin x');

Else if xgt;0 thenwriteln('cosx');

End.

D.program n2;

Var a:integer

b:integer;

Begin

Read(a);

Read(b);

If agt;b then write('y=a-b')

Else if alt;b then write('y=a+b')

Else write('y=a(b-1);

End.