program TongTuMotDenN;
var
  n, tong, i: integer;
begin
  // Nhập số nguyên n từ người dùng
  write('Nhập vào số nguyên n: ');
  readln(n);
  
  // Khởi tạo tổng ban đầu
  tong := 0;
  
  // Tính tổng từ 1 đến n
  for i := 1 to n do
  begin
    tong := tong + i;
  end;
  
  // In ra kết quả
  writeln('Tổng của các số từ 1 đến ', n, ' là: ', tong);
end.