Дано натуральное число n. Определить, во сколько раз произведение всех цифр заданного числа больше его первой цифры.
помогите написать программу в паскале.

var   n, i, p, s: integer;  begin   p := 1;   s := 0;   read(n);   while n > 0 do   begin     if(n div 10 <= 0) then s := (n mod 10);     p := p * (n mod 10);     n := n div 10;   end;   if(s <> p) then write('В ', p / s, ' раз')   else write('В ', 0, ' раз') ;end.