Помогите срочно пж
Рассчитать сумму кубов всех положительных значений и их количество для функции y=3x^2+2 cos cos x

Составить программу для табулирования функции на промежутке [0;4] с шагом h=0,5.
В отчет включить тексты программ, реакции ЭВМ.

program coss;

uses crt;

var

y,h,x,s:real;

k:integer;

begin

x:=0;

k:=0;

while x<=4 do

begin

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

if y>0 then

begin

writeln(x,' ',y:9:3,' ',y*sqr(y):12:3);

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

inc(k);

end

else

writeln(x,' ',y);

x:=x+0.5;

end;

writeln('Сумма ', s,' количество ',k);

end.