type
    Func = function (x, y: real): real;
var
    x0, hx, xn, y0, hy, yn: real;

function min(f: func; x0, hx, xn, y0, hy, yn: real): real;
var
    x, y, t, m: real;
begin
    m := f(x0, y0);
    x := x0;
    repeat
        y := y0;
        repeat
            t := f(x, y);
            if t < m then m := t;
            y := y + hy;
        until y > yn;
        x := x + hx;
    until x > xn;
    min := m
end;

function f1(x, y: real): real;
begin
    f1 := 3*x*x - 2*y*y + 4*x*y - 8*x;
end;

function f2(x, y: real): real;
begin
    f2 := 6*x*x + y*y - 4*x + 6*y + 1;
end;

begin
    writeln('Введите x0, hx, xn и y0, hy, yn:');
    read(x0, hx, xn, y0, hy, yn);
    writeln('1)Zmin = ', min(f1, x0, hx, xn, y0, hy, yn));
    writeln('2)Zmin = ', min(f2, x0, hx, xn, y0, hy, yn));
end.