Tính tổng các số tự nhiên nhỏ hơn hoặc bằng n (n nhập vào từ bàn phím)

Tính tổng các số tự nhiên nhỏ hơn hoặc bằng n (n nhập vào từ bàn phím).
Mn giúp mik ghi ra để chạy Free Pascal với!