program SumOfNumbers;
 
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.

cHJvZ3JhbSBTdW1PZk51bWJlcnM7Cgp1c2VzCiAgU3lzVXRpbHM7Cgp2YXIKICBOLCBpLCBzdW06IEludGVnZXI7CgpiZWdpbgogIC8vINCX0LDQv9C40YLRg9GU0LzQviDRgyDQutC+0YDQuNGB0YLRg9Cy0LDRh9CwINGH0LjRgdC70L4gTgogIFdyaXRlKCfQktCy0LXQtNGW0YLRjCDRh9C40YHQu9C+IE46ICcpOwogIFJlYWRMbihOKTsKCiAgLy8g0IbQvdGW0YbRltCw0LvRltC30YPRlNC80L4g0LfQvNGW0L3QvdGWCiAgaSA6PSAxOwogIHN1bSA6PSAwOwoKICAvLyDQktC40LrQvtGA0LjRgdGC0L7QstGD0ZTQvNC+INGG0LjQutC7IHdoaWxlINC00LvRjyDQvtCx0YfQuNGB0LvQtdC90L3RjyDRgdGD0LzQuCDRh9C40YHQtdC7INCy0ZbQtCAxINC00L4gTgogIHdoaWxlIGkgPD0gTiBkbwogIGJlZ2luCiAgICBzdW0gOj0gc3VtICsgaTsKICAgIGkgOj0gaSArIDE7CiAgZW5kOwoKICAvLyDQktC40LLQvtC00LjQvNC+INGA0LXQt9GD0LvRjNGC0LDRggogIFdyaXRlTG4oJ9Ch0YPQvNCwINGH0LjRgdC10Lsg0LLRltC0IDEg0LTQviAnLCBOLCAnINC00L7RgNGW0LLQvdGO0ZQgJywgc3VtKTsKZW5kLg==