Помогите найти наименьшее значение функции, Функция протабулирована на интервале [0;0.2].. Опции

[xlr8]

Функция протабулирована на интервале [0;0.2]..Помогите найти наименьшее значение функции...Спасибо.

program Lab_4_1;
Uses Crt;
Var  min,x,y:real;

Function Func(x:real):real;
begin
Func:=3*sqr(sin(5*x+0.5));
end;

Begin
clrscr;
textcolor(Green);
x:=0;
while x<=0.21 do
	begin
		write(x:5:2);
		write('  ');
		writeln(Func(x));
		x:=x+0.01;
	end;
if .......... then
..................
writeln(' Minimum is ',.....);
readkey;
End.

[volvo]

x:=0;
min := 10000;
while x<=0.21 do
	begin
		write(x:5:2);
		write('  ');
                value := Func(x);
                if value < min then min := value;
		writeln(value);
		x:=x+0.01;
	end;

[xlr8]

Спасибо большое!