Сколько байт цветного изображения 300 точек в ширину и 10 точек в высоту?

1) 203, минимальная система счисления - 4-ричная.
2 * 4^2 + 0 * 4^1 + 3 * 4^0 = 35
2) 10002, минимальная система счисления - 3-ичная.
1 * 3^4 + 0 * 3^3 + 0 * 3^2 + 0 * 3^1 + 2 * 3^0 = 83
3) 11111, тут может быть двоичная система счисления, но также возможна унарная, в которой лишь одна цифра - 1. То есть десятичная запись числа получается просто нахождением количества единиц.
В первом случае будет: 1 * 2^4 + 1 * 2^3 + 1 * 2^2 + 1 * 2^1 + 1 * 2^0 = 31
Во втором случае будет 5.
4) 2A, тут 11-ричная система счисления, так как цифры 0-9 и A.
2 * 11^1 + 10 * 11^0 = 32.

Толком не понятно что делает программа учитывая то, что скорее всего она работает не верно
Исправлены искажения текста перетягиванием или еще как-то, изза чего была написала белиберда
xsearch походу указывает на то, надо ли присваивать начальное значение xmax или оно уже присвоенно

var
    n: integer;
    x, y: integer;
    xmin, xmax: integer;
    xsearch: boolean;
    ymin, ymax: integer;
    i: integer;
    s: real;

begin
    xsearch := true;
    xmin := 0;
    xmax := 0;
    ymin := 0;
    ymax := 0;
    
    readln(n);
    
    for i := 1 to n do
    begin
        readln(x, y);
        if y = 0 then begin
            if xsearch or (x > xmax) then
                xmax := x;
            xsearch := false;
        end
        else if y > ymax then ymax := y
    end;
    
    if (xmax > xmin) and (ymin < 0) and (ymax > 0) then
        s := (xmax - xmin) * (ymax - ymin) / 2
    else
        s := 0;
    
    writeln(s);
end.