Вывести на экран все трехзначные числа, сумма которых равна 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