Нужно для программы pascal! из чисел от 10 до 99 вывести те, сумма цифр которых равна n и само число делится на m.

Var n,m,s,q,w,e:Integer;
begin
Read(n,m);
for s:= 10 to 99 do
begin
q:= s div 100;
w:= s div 10 mod 10;
e:= s mod 10;
if (q+w+e=n) and(s mod m = 0) then
WriteLn(s);
end;
end.