5 B$="":R%=0
10 INPUT "Количество чисел",A%
20 DIM M$(A%):N%=1:I%=0
25 INPUT "Введите числа",CH$
30 A$=MID$(CH$,N%,1)
40 IF A$<>" " THEN B$=B$+A$
50 IF A$=" " THEN GOSUB 200
60 N%=N%+1
70 GOTO 30
100 FOR J%=0 TO A%-1
105 V$=M$(J%)
107 V%=VAL(V$)
110 R%=R%+V%
120 NEXT J%
130 PRINT R%:STOP
200 M$(I%)=B$
210 I%=I%+1
220 B$=""
230 IF I%=A%-1 THEN GOTO 100
240 RETURN