Дано четырехзначное число.определить: кратно ли произведение его цифр числу а.

Var
  n,i,a:integer;
  p:longint;
begin
  Write('Введите четырехзначное число: '); Read(n);
  Write('Введите число для проверки кратности: '); Read(a);
  p:=1;
  for i:=1 to 3 do
  begin
    p:=p*(n mod 10);
    n:=n div 10
  end;
  p:=p*n;
  if (p mod a)=0 then Writeln('Число кратно ',a)
  else Writeln('Число не кратно ',a)
end.

Тестовое решение:
Введите четырехзначное число: 3673
Введите число для проверки кратности: 7
Число кратно 7

Var
    money: array[1..7]of integer;
    count: array[1..7]of integer;
    s, i: integer;

begin
    money[1] := 1;
    money[2] := 2;
    money[3] := 5;
    money[4] := 10;
    money[5] := 50;
    money[6] := 100;
    money[7] := 500;
    
    write('s = ');
    readln(s);
    
    i := 7;
    repeat
        if s >= money[i] then begin
            s := s - money[i];
            count[i] := count[i] + 1;
        end
        else i := i - 1;
    until s <= 0;
    
    for i := 7 downto 1 do
        if count[i] > 0 then
            writeln(money[i], ' p. = ', count[i], ' шт.')
end.

Годовая процентная доходность (Annual Percentage Yield, APY) — ставка дохода, вычисленная с учётом применения к депозитам или инвестиционным продуктам сложных процентов. Позволяет упростить сравнение доходности для годовых сложных процентов с различающимися интервалами начисления дохода (когда проценты начисляются несколько раз в году по годовой сложной процентной ставке). Годовая процентная доходность (APY) показывает такую процентную ставку доходности, как если бы годовой сложный процент начислялся один раз в год и давал бы такую же наращенную стоимость (будущая (приведенная) стоимость) как при начислении рассматриваемого годового сложного процента, который выплачивается несколько раз в год.