Рисунок алгоритма мне нужен интересные фигуры

int1 = int(input())

int2 = int(input())

col1 = int(input())

col2 = int(input())

min1 = col1 + int1 * (col1 - 1 ) # Минимальное время которое она находились на платформе, согласно условиям 1 стороны платформы

max2 = col1 + int1 * (col1 + 1 ) # Максимальное время которое она находились на платформе, согласно условиям 1 стороны платформы

min1 = col2 + int2 * (col2 - 1 ) # Минимальное время которое она находились на платформе, согласно условиям 2 стороны платформы

max2 = col2 + int2 * (col2 + 1 ) # Максимальное время которое она находились на платформе, согласно условиям 2 стороны платформы

if min1 > min2 : # Находим общий минимум для обеих сторон плафтормы. Это максимальное из двух значений

totalmin = min1

else :

totalmin = min2

if max1 > max2 : # Находим общий максимум для обеих сторон плафтормы. Это минимальное из двух значений

totalmax = max2

else : # Важно помнить Минимум максимален и постепенно уменьшается. Максимум минимален и постепенно растет

totalmax = max1

if totalmin > totalmax : # Если Минимальное время больше чем максимальное, то , ошибка в подсчете, во всех других случаях интервал существует

print(-1)

else :

print(totalmin , totalmax)

# это пояснение кода, не участвующее в программе

//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.