var i, n, y: integer;begin write ('x= '); readln (x); if (x>0) then y:=sin(2*x) else y:=1-(2*(sin(2*x))); write(y);end;
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;