Написать программу на паскале, по которой можно было узнать делится ли число на 5…

Program ex; Uses crt; Var n: integer; Begin clrscr; write ('n='); readln (n); if (n MOD 5)=0 then writeln (n,' delitsya na 5 bez ostatka') else writeln (n,' ne delitsya na 5 bez ostatka'); if (n MOD 4)=0 then writeln (n,' delitsya na 4 bez ostatka') else writeln (n,' ne delitsya na 4 bez ostatka'); End.