Faça um algoritmo que calcule e escreva se o número digitado na entrada de dados é maior ou menor que o resto da divisao deste por 5.Diga ainda se este numero é par ou impar.

Program gleycy;
Var x,y, integer ;
Begim
Reald(num)
If(x>y mod 5 )them ;
Else
If(x!=y mod 5)them ;
Write("é menor")
End
If (x mod 5=0)them;
Write("par")
Else
Write(''par")
Else
Write("impar")
End;
End;