Program Multiplo_de_5;
Uses Crt;
Var num:integer;
Begin
Clrscr;
Write('Dime un numero para decirte ');
Write('si es multiplo de cinco o no:  ');
Read(num);
If num MOD 5 = 0 then
WriteLn('Heureca!!! ' ,num, ' es multiplo de cinco')
Else
WriteLn(num, ' no es multiplo de cinco');
ReadKey
End.