Program pr;
var x:integer;y:real;
begin
write('X=');
readln(x);
y:=cos(2*x)+sin(x);
writeln('y=',y);
end.
Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if b<0 then Write(a,b)
else Write(a,'+',b);
if c<0 then Write(c,' = ',a+b+c)
else Write('+',c,' = ',a+b+c);
WriteLn;
if b<0 then Write(a,'*(',b,')')
else Write(a,'*',b);
if c<0 then Write('*(',c,') = ',a*b*c)
else Write('*',c,' = ',a*b*c);
WriteLn;
if b<0 then Write('(',a,b)
else Write('(',a,'+',b);
if c<0 then Write(c,')/3 = ',(a+b+c)/3)
else Write('+',c,')/3 = ',(a+b+c)/3);
End.