из всех трехзначных чисел найти те у которых сумма числа сотен и числа десятков равна 7.
срочно!!!!! пожалуйста! паскаль

спасибо большое

var i: integer;beginfor i:=100 to 999 dobeginif (i div 100+(i div 10) mod 10 =7 ) thenprint(i);endend.