Поиск максимального значения функции

[SKS]

Поиск максимального значения функции
y=x-Sqr(cos)x+3*sin (Sqr (x)) / ln (Sqr (x)+1)
если х принадлежит промежутку [1;3],n=0.2

помогите решить задачу!

[maladoy]

program maximum;
uses crt;
var x,max:real;
y:array[1..11] of real;
i,j:integer;
begin
clrscr;
x:=1;
i:=1;
while x<=3.2 do
begin
y[i]:= x-sqr(cos(x))+3*sin(sqr(x))/ln(sqr(x)+1);
writeln (x:4:2,' ',y[i]:4:2);
x:=x+0.2;
i:=i+1;
end;
max:=y[1];
for j:=1 to i do
if y[j]> max then max:=y[j];
writeln('maximum y = ',max:4:2);
readln;
end.

[alex_fcsm]

var step,max,y:real;

begin
max:=-10;
step:=1;
repeat
step:=step+0.2;
y:=step-Sqr(cos(step))+3*sin (Sqr (step)) / ln (Sqr (step)+1);
if max<y then max:=y;
until step>=3;
writeln(max);
readln;
end.

[SKS]

Огромное спасибо!!! Всё работает вам + отзыв!!!