Копилка

CLS
DIM a(100)
   FOR i = 1 TO 100
DO
a(i) = INT(RND * 50) + 1
LOOP UNTIL a(i) = 1 OR a(i)=2 OR a(i)=3 OR a(i)=5 OR a(i)=10
        (продолжение  строки)    ORa(i)=15 OR a(i)=20 OR a(i)= 50
   IF a(i) = 5 THEN n5 = n5 + 1
   IF a(i) = 50 THEN n50 = n50 + 1
         s = s + a(i)
         s1 = 5 * n5 + 50 * n50
   NEXT i
PRINT “ Сумма всех монет: “; s
PRINT “ Кол. пятаков и полтинников: “; n5; “и”; n50
PRINT “ Сумма всех пятаков и полтинников: “; s1

Сумма всех монет:  1320
Кол. пятаков и полтинников:  13 и 12
Сумма всех пятаков и полтинников:  665

CLS
DIM a(100)
   FOR i = 1 TO 100
DO
a(i) = INT(RND * 50) + 1
IF a(i)=1 THEN EXIT DO
IF a(i)=2 THEN EXIT DO
IF a(i)=3 THEN EXIT DO
IF a(i)=5 THEN EXIT DO
IF a(i)=10 THEN EXIT DO
IF a(i)=15 THEN EXIT DO
IF a(i)=20 THEN EXIT DO
IF a(i)=50 THEN EXIT DO
LOOP 
   IF a(i) = 5 THEN n5 = n5 + 1
   IF a(i) = 50 THEN n50 = n50 + 1
         s = s + a(i)
NEXT
         s1 = 5 * n5 + 50 * n50
   
PRINT “ Сумма всех монет: “; s
PRINT “ Кол. пятаков и полтинников: “; n5; “и”; n50
PRINT “ Сумма всех пятаков и полтинников: “; s1