Visualg função

[marialuiza 0]

Faça uma função que receba por parâmetro, um valor inteiro e positivo N e retorne o valor de S, onde a 1ª parcela da soma tem N=1, a 2ª parcela tem N=2,..., até N ser igual ao valor digitado.
S = 1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/N

 

Fiz assim, porém o resultado não fecha, como arrumo o algoritmo?

Var

// Seção de Declarações das variáveis

n: inteiro

m: real

funcao somaparcela (s:real): real

var

i: inteiro

inicio

s <- 1

para i de 1 ate n faca

s <- s + 1/n

fimpara

retorne s

fimfuncao

Inicio

// Seção de Comandos, procedimento, funções, operadores, etc...

escreva ("Digite um número inteiro positivo: ")

leia (n)

m <- somaparcela(n)

escreva (n)

Fimalgoritmo