Нужно перевести код с Python на PascalABC - Pascal ABC

Формулировка задачи:

Нужно перевести код с C++ на PascalABC Насколько я понимаю, это C++, но могу ошибаться, так как этот язык не знаком

def solution_OK(N, A, B, C, D):
    res = N
    for x in range((N + A - 1) // A + 1):
 
        if x * A < N:
            y = (N - x * A) // C
        else:
            y = 0
 
        if N - x * A - y * C > 0:
            z = N - x * A - y * C
        else:
            z = 0
 
        if res > min(x * B + y * D + z, x * B + (y + 1) * D):
            res = min(x * B + y * D + z, x * B + (y + 1) * D)
    return res
 
N = int(input())
A = int(input())
B = int(input())
C = int(input())
D = int(input())
print(solution_OK(N, A, B, C, D))

Решение задачи: «Нужно перевести код с Python на PascalABC»

Листинг программы

function min(a,b:integer):integer;
    begin
    if a<b then
        min:=a
    else
        min:=b;
    end;
function solution_OK(N,A,B,C,D:integer):integer;
    var x,res,y,z :integer;
    begin
    res:=N;
    for x:=0 to ((N+A-1) div A) do
        begin
        if (x*A)<N then
            y:=(N-x*A) div C
        else
            y:=0;
        if (N-x*A-y*C)>0 then
            z:=N-x*A-y*C
        else
            z:=0;
        if res>min((x * B + y * D + z),( x * B + (y + 1) * D)) then
            res:=min((x * B + y * D + z),( x * B + (y + 1) * D))
        end;
    solution_OK:=res;
    end;
var N, A, B, C, D:integer;
begin
readln(N);
readln(A);
readln(B);
readln(C);
readln(D);
writeln(solution_OK(N, A, B, C, D));
end.

Объяснение кода листинга программы

Функция min сравнивает два целых числа и возвращает наименьшее.
Функция solution_OK принимает пять целых параметров: N, A, B, C, D и использует их в вычислениях.
В функции solution_OK используется цикл for, который выполняет вычисления для каждого возможного значения x от 0 до (N+A-1) div A.
Внутри цикла проверяется, достаточно ли вычислительных ресурсов для выполнения следующей итерации. Если нет, то выполняется переход к следующей итерации.
Для каждой итерации цикла вычисляются значения y и z.
Затем проверяется, является ли значение res больше, чем результат функции min для текущих значений x, y и z. Если это так, то значение res заменяется на результат функции min.
В конце функции solution_OK вызывается функция min с аргументами (x B + y D + z) и (x B + (y + 1) D).
Переменная solution_OK получает значение результата функции min.
В основной части программы считываются значения N, A, B, C и D.
Затем вызывается функция solution_OK с аргументами N, A, B, C и D.
Результат функции solution_OK выводится на экран.