Algoritmo VisualG

Bom pessoal tenho tentado resolver esse algoritmo, que esta me dando uma grande dor de cabeça.
O objetivo dele é simplesmente apos o usuário ter digitado a quantidade de dígitos que ele quer que apareça.
Se formar uma piramide.

Exemplo:
usuário digita 10 então o algoritmo deve fazer

1
23
456
78910

Ate agora so consegui que ele faça 10 linhas tipo

1
2
3
4
5
6
7
8
9
10

Eis o meu algoritmo

algoritmo "semnome"

var
A , B, C: inteiro

inicio
C <- 1
B <- 0
escreva("digite o número de caracteres: ")
leia(A)
enquanto ( B < A )faca
escreval ©
C<- c + 1
B<- B+1
fimenquanto

fimalgoritmo

Se alguém pudesse ajudar agradeceria muito, não sei se esse é o lugar certo se não for peço desculpas.