program Project1;
uses
SysUtils;
var
N, i, sum: Integer;
begin
// Запитуємо у користувача число N
Write('Введіть число N: ');
ReadLn(N);
// Ініціалізуємо змінні
i := 1;
sum := 0;
// Використовуємо цикл while для обчислення суми чисел від 1 до N
while i <= N do
begin
sum := sum + i;
i := i + 1;
end;
// Виводимо результат
WriteLn('Сума чисел від 1 до ', N, ' дорівнює ', sum);
end.
cHJvZ3JhbSBQcm9qZWN0MTsKCnVzZXMKICBTeXNVdGlsczsKCnZhcgogIE4sIGksIHN1bTogSW50ZWdlcjsKCmJlZ2luCiAgLy8g0JfQsNC/0LjRgtGD0ZTQvNC+INGDINC60L7RgNC40YHRgtGD0LLQsNGH0LAg0YfQuNGB0LvQviBOCiAgV3JpdGUoJ9CS0LLQtdC00ZbRgtGMINGH0LjRgdC70L4gTjogJyk7CiAgUmVhZExuKE4pOwoKICAvLyDQhtC90ZbRhtGW0LDQu9GW0LfRg9GU0LzQviDQt9C80ZbQvdC90ZYKICBpIDo9IDE7CiAgc3VtIDo9IDA7CgogIC8vINCS0LjQutC+0YDQuNGB0YLQvtCy0YPRlNC80L4g0YbQuNC60Lsgd2hpbGUg0LTQu9GPINC+0LHRh9C40YHQu9C10L3QvdGPINGB0YPQvNC4INGH0LjRgdC10Lsg0LLRltC0IDEg0LTQviBOCiAgd2hpbGUgaSA8PSBOIGRvCiAgYmVnaW4KICAgIHN1bSA6PSBzdW0gKyBpOwogICAgaSA6PSBpICsgMTsKICBlbmQ7CgogIC8vINCS0LjQstC+0LTQuNC80L4g0YDQtdC30YPQu9GM0YLQsNGCCiAgV3JpdGVMbign0KHRg9C80LAg0YfQuNGB0LXQuyDQstGW0LQgMSDQtNC+ICcsIE4sICcg0LTQvtGA0ZbQstC90Y7RlCAnLCBzdW0pOwplbmQu