{* Задача398 *}

REM basic

' Напечатать сумму элементов кратных одновременно двум и трем числового ряда
' 3,6,9,2,12,2,24


DATA 3, 6, 9, 2, 12, 2, 24
   CLS
For i = 1 To 7
   READ a
   If a Mod 2 = 0 And a Mod 3 = 0 Then s = s + a
Next
PRINT "Summa:"; a
End