Como eu faço para imprimir valores monetários no visualg?

[livetron]

#Crie um algaritmo que leia valor do salario digitado pelo usuário e acrescente um desconto de 8% sobre o imposto e imprima o valor do desconto e resultado.

 

var
num1,num2,num3:real
inicio
escreva("digite o seu salario: ")
leia(num1)
num2<- (num1/100)*8
num3<- (num1-num2)
escreval("O valor do desconto é ", num2)
escreva("resultado",num3)
fimalgoritmo

 

[Mitnick8]

@livetron

Boa tarde,

 

segue o código corrigido

 

var
num1,num2,num3:real
inicio
escreva("digite o seu salario: ")
leia(num1)
num2<- (num1*,08)
num3<- num1-num2
escreval("O valor do desconto é ", num2)
escreva("resultado",num3)
fimalgoritmo