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

Var i, q, n : integer;
begin
  read(q, n);
  for i:=10 to 99 do
    if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
      write(i, ' ');
end.