program func_na_ptom;

var x,s,y:real;

k:integer;

begin

x:=0; k:=0;s:=0;

writeln(' x y');

while x<=4 do

begin

y:=3*sqr(x)+2*cos(cos(x));

writeln(' ',x,'',y:7:1);

x:=x+0.5;

if y>0 then

begin

s:=s+y*sqr(y);

k:=k+1

end

end;

writeln(' Сумма кубов положительных значений》 ',s:1:2);

writeln(' Количество положительных значений》 ',k)

end.