Программа нахождения суммы,среднего арифметического,минимума функции

[vralayala]

Так,нам дана функция f=0.56*x*x*x-11*x+4*sin(x+1)+3 интервал [-5;5]; шаг 0.5.
1.найти минимум среди значений функции,имеющих четную целую часть.
2.найти сумму значений функции,имеющие дробную часть <0.5
3.найти среднее арифметическое значение в младшем разряде целой части цифру,которая больше числа 3.
Я написала программу,но не уверена,что правильно.Посмотрите,пожалуйста,дор огие форумчане

program t;
var fn,fmin,x,k:real;n:integer;
function myf(x:real):real;
begin
myf:=0.56*sqr(x)*x-11*x+4*sin(x+1)+3;
end;
begin
x:=-5;
while x <=5 do begin
myf(X);
x:=x+0.5;
writeln('f=',myf(x):1:4);end;
x:=-5;
fmin:=myf(x);
while x <=5 do begin
x:=x+0.5;
fn:=myf(x);
n:=trunc(fn);
if (((n mod 2)=0) AND (fmin>fn)) then
begin
fmin:=fn;
writeln('min=',fmin:1:4);
end;
end;
end.

program t;
var sum,x,k,f:real;
begin
x:=-5;
sum:=0;
while x <=5 do begin
f:=0.56*sqr(x)*x-11*x+4*sin(x+1)+3;
x:=x+0.5;
k:=frac(f);
if k>0.5 then
sum:=sum+f;
end;
writeln('sum=',sum:1:4);
end.


program t2;
var x,sum,f,mr:real;n,k:integer;
begin
x:=-5;
sum:=0;
n:=0;
while x <=5 do begin
f:=0.56*sqr(x)*x-11*x+4*sin(x+1)+3;
x:=x+0.5;
k:=trunc(f);
k:=k mod 10;
if k>3 then
sum:=sum+f;
n:=n+1;
end;
mr:=sum/n;
writeln('среднее арифметическое =',mr:1:4);
end.