найти все целые двухзначные числа сумма цифр которых равна 8

count := 0;for i := 10 to 99 doInc(count, Integer(((i div 10) + (i mod 10)) = 8));for i := 10 to 99 doif(((i div 10) + (i mod 10)) = 8) thenwriteln(i);