desenvolver esse algoritmo

Oi galera, queria ajuda para desenvolver esse algoritmo.Não sei qual comando usar ;s

--> Escrever um programa que leia uma quantidade não determinada de vezes um número

inteiro. Para cada número lido calcular e mostrar seu quadrado. Parar de informar quando

o número lido for igual a zero.

O que eu fiz:

algoritmo "8"

var

n,qua: inteiro

inicio

leia (n)

enquanto (n > 0) faca

qua <- (n * 2)

escreval (qua)

fimenquanto

fimalgoritmo