LD1-3)Faça um programa que, dado um número, imprima a sua tabuada completa

Algoritmo "tabuada"
Var
    i,num,res: inteiro
Inicio
    Leia(num)
    Para i de 0 ate 10 faca
        Res <- num * i
        Escreval(num, " x ",i, " = ",res)
    Fimpara
Fimalgoritmo