Помогите написать код на ПАСКАЛЕ , только вместо while надо поставить repeat :

. Дано целое число N (> 1). Вывести наибольшее из целых чисел K,
для которых сумма 1 + 2 + .+ K будет меньше или равна N, и саму эту
сумму.
(точнее решить с помощью репит )

Три варианта, выбирайте, что вам больше по нраву