Pascal/Turbo Pascal - Ayuda con Programa Sencillo

Hola a los programadores de Turbo Pascal.... Quiero pedirles que me hechen la mano a realizar un programa:
Un programa que imprima los numeros de el 1 al 5000 en una columna... y en la columna siguiente la suma de ellos... ejemplo:
1
2 3
3 6
4 10
5 15
6 21
7 28
8 36
Etcetera... les agradeceré infinitamente... mi mail es: [email protected]

Hola!

Para saber la suma de una progresión aritmética se puede
utilizar la formula del matemático Carlos Gauss
S = (1+n)*n/2

Ejemplo:
...
8 -> 36
...

Se calcula:
(1 + 8) * 8 / 2 = 36

Att:Ge-ergon