Algoritmo – Soma dos 20 Primeiros Números Inteiros

Problema: Escreva um programa em Portugol que calcule a soma dos 20 primeiros números inteiros, exibindo uma sequência como se segue: 

0 + 1 = 1 
0 + 1 + 2 = 3
0 + 1 + 2 + 3 = 6
…

algoritmo "SOMAR SEQUÊNCIA"
var
   i, soma: inteiro
   result: caractere
inicio
   soma <- 0
   result <- "0"

   para i de 0 ate 18 passo 1 faca
      result <- result + " + " + numpcarac(i+1)
      soma <- soma+i+1
      escreval(result, " = ", soma)
   fimpara
fimalgoritmo

Resultado:

^{*Atualizado em 9 de janeiro de 2021}