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

Для того чтобы число делилось на 3, необходимо и достаточно, чтобысумма его цифр делилась на 3.

Function Div3(n:longint):boolean;
var s:byte;
begin
s:=0;
while ngt;0 do 
begin 
s:=s+n mod 10; 
n:=n div 10; 
end;
if s mod 3=0 then Div3:=true
else Div3:=false;
end;

var a:longint;
begin
write('Введите a: ');
readln(a);
if Div3(a) then write('Число делится на 3')
else write('Число не делится на 3');
end.