Сделать программу для расчета сумы с X первых натуральных цифр - Pascal

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

Сделать программу для расчета сумы с X первых натуральных цифр \sum_{x}^{i=1} i. Результат должен считаться в подпрограмме с использыванием циклу с послеумовою.

Решение задачи: «Сделать программу для расчета сумы с X первых натуральных цифр»

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

{$MODE TP}
function Sum(const x: Word): LongWord;
var
    i: Word;
    Result: LongWord; //удалить строку при ошибке повторного объявления
begin
    Result := 0; i := 1;
    repeat
        Inc(Result, i);
        Inc(i);
    until (i > x);
    Sum := Result;
end;
var
    x: Word;
begin
    repeat
        Write('Input x='); ReadLn(x);
    until (x > 0);
    Write('Sum=', Sum(x));
end.

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

Объявление функции Sum с аргументом x типа Word и возвращаемым значением типа LongWord.
Объявление переменных i типа Word и Result типа LongWord.
Присвоение начальных значений переменным Result и i: Result равно 0 и i равно 1.
Выполнение цикла repeat...until, где каждую итерацию увеличивается Result на значение i и увеличивается i на 1, до тех пор, пока i не превысит значение x.
Возврат значения Result в функции Sum.
Объявление переменной x типа Word.
Цикл repeat...until, в котором пользователю предлагается ввести значение для переменной x с помощью Write и ReadLn, продолжая запрашивать значение до тех пор, пока введенное значение не будет больше 0.
Вывод результата вызова функции Sum(x) с помощью Write. Код выполняет следующую операцию: пользователю предлагается ввести значение x и затем выводится сумма первых x натуральных чисел.