Склавиатуры вводится число.проверьте,делится ли оно на 3.если число делится на 3,то выведите фразу "да",в противном случае выведите "нет". , нужно.

Program deleniye;
Uses crt;
Var a:integer;
Begin;
clrscr;
write('Введите a >');
readln(a);
if a mod 3=0 then writeln('Да');
else writeln('Нет');
readln;
End.