составить программу ,которая определяет является ли веденное целое число кратным трем и выводит на экран соответствующее сообщение :''да'' лиюо ''нет''

var

a: integer;

begin

writeln ('введи целое число');

read (a);

if (a mod 2)=0 then writeln ('да');

if (a mod 2)<>0 then writeln ('нет');

end.