Среди всех двузначных чисел указать те, сумма цифр которых равна числу К.

var i,k:integer;beginwrite('k = ');readln(k);writeln('Числа, сумма цифр которых = ',k);for i:=10 to 99 do if i div 10+i mod 10=k then writeln(i);end.Пример:k = 15Числа, сумма цифр которых = 1569788796