mostrar el listado del 1 al 10

Inicio

Entero: num 1

Mientras num: <=10 hacer

Escribir: num

num: num +1

Fin mientras 

Fin