Написать программу подсчета произведения цифр числа, делящегося на 3. Определить делится ли заданное число на 3 с помощью процедуры (входной параметр целое число; выходной параметр: переменная логического типа) — Pascal(Паскаль)

uses crt;
procedure divis(a:longint; var b:boolean);
begin
if a mod 3=0 then b:=true else b:=false;
end;
var n,p:longint;
begin
clrscr;
repeat
write('Введите число делящееся на 3: ');
readln(n);
divis(n,b);
until b;
p:=1;
while n<>0 do begin
p:=p*n mod 10;
n:=n div 10;
end;
write('Произведение цифр числа ',n,': ',p);
readln
end.