помогите решить: среди двузначных чисел найти те, которые деляться на число q, а сумма их цифр равна n(0

var a,i,n,q:integer;
begin
write('q= n= ');
readln(q,n);
a:=10;
repeat
if (a mod q = 0) and ((a div 10) + (a mod 10) = n) then writeln('a= ',a);
inc(a);
until a=100;
end.