Найдите наибольшее и наименьшее значение функции

[xtraSHAD0W]

СРОЧНО Помогите плиз cоставить программульку на паскале:
Найдите наибольшее и наименьшее значение функции f(x)=3*x*x+x-4, если на заданном интервале [Xmin;Xmax] аргумент изменяется с шагом дельта x

[puporev]

Решается это примерно так:

uses crt;
var x,xmin,xmax,dx,ymin,ymax:real;
    y:array[1..100]of real;
    i,n:integer;
begin
clrscr;
write('xmin=');readln(xmin);
write('xmax=');readln(xmax);
write('dx=');readln(dx);
x:=xmin;n:=0;
while x<=xmax do
begin
n:=n+1;
y[n]:=3*x*x+x-4;
x:=x+dx;
end;
for i:=1 to n do
write(y[i]:7:2);
writeln;
ymin:=y[1];ymax:=y[1];
for i:=1 to n do
    begin
         if y[i]<ymin then
             begin
               ymin:=y[i];
             end
         else if y[i]>ymax then
             begin
               ymax:=y[i];
             end;
    end;
writeln('ymin=',ymin:6:2,'  ymax=',ymax:6:2);
readln
end.

[Небесный]

puporev, прикольный алгоритм - сам придумал или скачал где-то?
Сори за флуд.

[xtraSHAD0W]

puporev, спасибо тебе огромное