Вывести на экран все трехзначные числа, сумма которых одинакова 5 (basic)

dim i as integer
dim a1 as integer
dim a2 as integer
dim a3 as integer
for i=100 to 999
rem получаем первую цифру трехзначного числа
a1=i \100
rem получаем вторую цифру трехзначного числа
a2=(i Mod 100) \ 10
rem получаем третью цифру трехзначного числа
a3=i mod 10
rem проверяем, если сумма первой, второй и третьей цифр числа одинаковы пяти, то выводим это число на экран
if a1+a2+a3 =5 then print(i)
next i
end