Pseudocódigo/Diagramas de Flujo - algoritmo en pseint

Leer un número entero y determinar a cuánto es igual la suma de todos los enteros

Buenos días, este es el algoritmo

Proceso SumaEnteros
//Leer un número entero y determinar a cuánto es igual la suma de todos los enteros

num <- 0
suma <- 0

escribir "Ingrese el numero: "
leer num

i <- 1

Mientras i <= num Hacer
suma <- suma + i

i <- i + 1
FinMientras

Escribir "la suma es: ", suma
FinProceso