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

var n,m,s,q,w,e:Integer;beginRead(n,m);for s:= 10 to 99 dobeginq:= s div 100;w:= s div 10 mod 10;e:= s mod 10;if (q+w+e=n) and(s mod m = 0) thenWriteLn(s);end;end.