print "1. summa chetnix elementov massiva"
print "2. summa kratnix trem elementov massiva"
print "vash vibor"
A$=input$(1)
If (A$="1") then
print "summa chetnix elementov massiva"
do
input "vvedite razmer massiva N"; N
If (N<=0) or (int(N)<>N) then print "net resheniy"
loop while (N<=0) or (int(N)<>N)
Dim (A)
for i=1 to N
print "Vvedite";i;"-i element massiva";
input A(i)
next i
summa=0
for i=1 to N
if A(i) mod 2=0 then
summa=summa+A(i)
end if
next i
for i=1 to N
print A(i);
next i
print "summa chetnix elementov massiva"; summa
Else If (A$="2") then
print "summa kratnix trem elementov massiva"
do
input "vvedite razmer massiva N"; N
If (N<=0) or (int(N)<>N) then print "net resheniy"
loop while (N<=0) or (int(N)<>N)
Dim (A)
for i=1 to N
print "Vvedite";i;"-i element massiva";
input A(i)
next i
summa=0
for i=1 to N
if A(i) mod 3=0 then
summa=summa+A(i)
end if
next i
for i=1 to N
print A(i);
next i
print "summa kratnix trem elementov massiva"; summa