//pascalabc.net 3.1 сборка 1200 begin var b : = new system.collections.generic.list< integer> (); var c : = new system.collections.generic.list< integer> (); var x : = readreal('x ='); var y : = readreal('y ='); for var n : = 1 to 30 do begin var z : = cos(n * x + y); if z > 0 then b.add(n); if z < 0 then c.add(n); end; println('x=' + x + ' y=' + y); println('массив в: ', b); println('массив c: ', c); end.