Ingrid

1- Faça um algoritmo que calcule e escreva se número digitado na entrada de dados
é maior ou menor que o resto da divisão deste por 5. Diga ainda se este número é par ou ímpar.

Program Destiny;
Var x,y: Integer;
Begin
Read (x)
if (x>y mod 5) then;
Write ("É maior")
Else
if (x!= y mod 5) then;
Write ("É menor")
End
If (x mod 5=0) then;
Write ("par")
else;
Write ("ímpar")
end;
End.