Enquanto-faca, algoritmo incompleto...

Elabore um algoritmo que mostre todos os números de 100 ate 150, e ao final a soma de todos os números nesse intervalo.

Var

n: inteiro

soma, cont: inteiro

Inicio

n <- 100

enquanto (cont < 50) faca

n <- n + 1

escreval(n)

soma <- soma + n

cont <- cont + 1

fimenquanto

escreval("Resultado da soma: ", soma)

Ta contando até 150 o problema é que eu não sei se a soma ta certa.