<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var (a,b,h):=(0.0,3*Pi,0.6); var x:=a; var (k,s):=(0,0.0); while x<=b do begin var y:=x*Sin(x); Writeln(x:5:1,y:18:13); if y>0 then k+=1 else s+=y; x+=h end; Writeln('Положительных- ',k,', сумма отрицательных ',s) end.