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