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

program chisla;var a:integer;beginread(a);if (a mod 3)=0 then writeln('Lubit')else writeln('Ne lubit');end.