Lista 25 out. 8

Fazer um programa para calcular a soma dos N primeiros números, onde N é lido.
Ex.: N=5. Soma = 1+2+3+4+5

algoritmo "25 Outubro 8"
// Função :
// Autor : Gustavo Ferreira
// Data : 26/10/2010
// Seção de Declarações 
var
   i,soma:inteiro
inicio
// Seção de Comandos
   soma<-0
   escreva("Informe o numero: ")
   leia (i)
   para i de i ate 1 passo - 1 faca
      soma<-soma + i
   fimpara
   escreval("Resultado: ",soma)
fimalgoritmo