Напишите программу на паскале дано трехзначное число. определить кратна ли сумма его цифр числу а. пример работы программы: входные данные выходные данные 633 no 4 540 yes 2

Var
 a,b,c,d,e:longint;
begin
 readln(a);
 readln(c);
 d:=d+a mod 10;
 d:=d+a div 10 mod 10;
 d:=d+a div 100 mod 10;
 if d mod c = 0 then writeln('Yes') else writeln('No');
end.