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

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.