<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True
А В А*В А*В+А В*А А+В*А (А*В+А)*(А+В*А)
0 0 0 0 0 0 0
0 1 0 0 0 0 0
1 0 0 1 0 1 1
1 1 1 1 1 1 1