DEFLNG A-Z

DIM i, d, Sum, Mul, n

n = 7 ' Количество чисел
i = 1
Sum = 0
Mul = 1
DO WHILE i <= n
   READ d
   IF d MOD 10 = 0 THEN Sum = Sum + d
   IF d MOD 100 = 0 THEN Mul = Mul * d
   i = i + 1
LOOP

PRINT "Сумма чисел, оканчивающихся нулём"; Sum
PRINT "Произведение чисел, оканчивающихся двумя нулями"; Mul

' Данные
DATA 145,288,190,200,435,500,910

dim n as integer

input "введите число"; n
if (n mod 10) = 7 then
    print "введённое число оканчивается на 7"
else
    print "введённое число не оканчивается на 7"
end if

  regsvr32 %~dp0dx8vb.dll