помогите написать программу проверяющую верное утверждение что введенное вами число делится на 3 без остатка.

Program L;uses crt;var x:integer;beginwrite('   x='); readln(x);if (x mod 3)=0 then   writeln('x=',x,' делется нацело на 3')                            else  writeln('x=',x,' не делется нацело на 3')end.