VISUALG , FUNÇÃO

[Terr0xS 0]

Escreva uma função que receba dois números inteiros x e y. Essa função deve verificar se x é divisível por y. No caso positivo, a função deve retornar 1, caso contrário zero. Escreva também um algoritmo para testar tal função exibindo uma mensagem de acordo com o resultado

no caso faltei a essa aula fiz aqui +/- com a apostila da aula, queria sabe --> " No caso positivo, a função deve retornar 1, caso contrário zero " <--

var

x,y,resto:inteiro

funcao dl(x,y:inteiro):inteiro // dl = divisivel

inicio

se x mod y = 0 entao

escreval("O Numero ", x ," é divisivel por ", y)

senao

escreval("O Numero ", x ," não é divisivel por ", y)

fimse

fimfuncao

inicio

escreva("UM VALOR PARA X : ")

leia(x)

escreva("UM VALOR PARA Y : ")

leia(y)

escreval("RESULTADO: ",dl(x,y))

+/- eu conseguir fazer ate aqui alguem pode me guia ou completa dar uma dica sei la...