Составить программу с помощью Pascal ABC для определения количества натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15

var a: integer;beginfor var i:=100 to 500 do if (i div 100 + (i div 10) mod 10+ i mod 10=15) thenwrite(i,' ');end.