Составить программу ,которая определяет является ли веденное целое число кратным трем и выводит на экран соответствующее сообщение :''да'' лиюо ''нет''
var
a: integer;
begin
writeln ('введи целое число');
read (a);
if (a mod 2)=0 then writeln ('да');
if (a mod 2)<>0 then writeln ('нет');
end.