Батырхан любит числа, которые без остатка делятся на числа 3. К сожалению, для очень больших чисель он не может проверить должен ли он любить его или нет. Помогите ему написать программу, котопая поможет ему!

program esep5;

var

n:integer;

begin

writeln(‘san engiz’,’n');

readln(n);

if (n mod 3=0) then writeln('yes')

else writeln('no');

end.