Algoritmo (Em Visualg) que leia três números e encontre o menor e o maior valor e calcule a soma e a média aritmética desses números??

Espero ter ajudado :)

var
num1,num2,num3:inteiro
soma:real
inicio
Escreva(" Digite um número: ")
Leia(num1)
Escreva(" Digite um número: ")
Leia(num2)
Escreva(" Digite um número: ")
Leia(num3)
Se (num1 > num2) e (num1 > num3) entao
Escreval(num1," é o maior ")
senao
Se (num2 > num1) e (num2 > num3) entao
Escreval(num2," é o maior numero")
senao
Escreval(num3," é o maior número")
fimse
fimse
Se (num1 < num2) e (num1 < num3) entao
Escreval(num1," é o menor ")
senao
Se (num2 < num1) e (num2 < num3) entao
Escreval(num2," é o menor numero")
senao
Escreval(num3," é o menor número")
fimse
fimse
soma <- num1 + num2 + num3
Escreval(" A soma dos três números é: ",soma)
Escreval(" A média dos três números é: ",soma/3)
fimalgoritmo