перевести с Питона на Паскаль

from math import sqrt
 
res = set()#пустое множество
 
for m in range(1, 4901):# 1 <= m < 4901, цикл от 1 до 4900, m - проверяем каждое число, если подходит то добавим в множество
    for n in range(1, int(sqrt(m))):# 1 < n < sqrt(m), выражая k через m и n получаем формулу, где такое ОДЗ для n
        k = sqrt(m - n*n)/2#а вот и эта формула для k
        bool_nk = (k).is_integer()#проверка, что k целое, в паскале k = trunc(k) 
        if bool_nk:#если целое - то можно разложить на n и k, проверяем что бы на i и j нельзя было разложить
            bool_ij = False
            for j in range(1, m + 3):#опять же, выражаем i через j, m, такое ОДЗ: 1 <= j < m+2 
                i = (m - j + 3) / (7 * j)#формула i через j, m
                bool_ij = bool_ij or (i).is_integer()#такая проверка что бы ни одно из разложений на i, j не подходило
            if not(bool_ij):#если нельзя разложить на i, j, то добавляем в множество
                res.add(m)#добавляем
 
lres = list(res)#делаем список из множества
lres.sort(reverse = True)#сортируем как сказано
print(lres)#выводим на экран