Помогите составить программу, которая по сумме цифр определит делится ли число на 3.....

function Div3(n:longint):boolean;var s:byte;begins:=0;while n>0 do begin  s:=s+n mod 10;  n:=n div 10; end;if s mod 3=0 then Div3:=trueelse Div3:=false;end;var a:longint;beginwrite('Введите a: ');readln(a);if Div3(a) then write('Число делится на 3')else write('Число не делится на 3');end.