, neste programa foi utilizado um laço de repetição, para poder multiplicar um número inteiro por todos os número de 1 até 10 assim o código fica mais curto :
var
x,numero: inteiro
inicio
escreval ("Tabuada ")
escreval (" ")
escreva ("Digite um numero: ")
leia(numero)
escreval (" ")
escreval (" Tabuada de ",numero," ")
escreval (" ")
para x de 1 ate 10 faca
escreval(numero," x ",x," = ",(numero * x))
fimpara
fimalgoritmo
Para executa este programa utilize o VisuAlg