Переведите это решение на паскаль.
N = int(input())
A = int(input())
B = int(input())
C = int(input())
def time(x, y):
return max(x * C + (N-x) * A, x * C + (x-y-1) * B, y * A)
ans = N * A
X = (N * A * A + N * A * B) // (2 * A * B + A * A - C * B)
for x in (X, X + 1):
y = (C + B) * x // (A + B)
ans = min(ans, time(x, y))
print(ans)

Вот перевод вашего решения с Python на Pascal (Free Pascal):

Объяснение перевода

1. Ввод данных

В Python:

В Pascal:

2. Функция time(x, y)

В Python используется функция max(), которая возвращает наибольшее из трёх значений.

В Pascal мы вычисляем три значения t1, t2, t3, а затем с помощью условий if находим максимальное.

3. Целочисленное деление

В Python:

В Pascal:

Оператор div выполняет целочисленное деление. При неотрицательном результате деления он работает аналогично // в Python. При отрицательном результате возможны различия, поскольку Python округляет вниз, а Pascal — к нулю.

4. Перебор двух значений

В Python:

В Pascal:

Здесь важно, что Pascal не различает строчные и прописные буквы в именах переменных. Поэтому нельзя одновременно объявить X и x как две разные переменные. Мы переименовали исходную переменную X в X0.

5. Поиск минимального ответа

В Python:

В Pascal:

Важное замечание

Для переменных используется тип Int64, а не Integer, поскольку в