Exercicio capitulo 4 Tabuada

Criar um algoritmo que peça um numero e faça a tabuada para ele.

algoritmo "Calcular tabuada"
// Função :
// Autor : Gustavo Ferreira
// Data : 15/10/2010
// Seção de Declarações 
var
   numero,contador:inteiro
inicio
   contador <- 1;
   escreval("Informe o numero para trabalhar")
   leia(numero)
   repita
      escreval(contador," X",numero," =",contador*numero)
      contador <- contador + 1
   ate (contador>10)
fimalgoritmo