Напишите программу(паскаль) заполнения массива a [1..20] произвольными числами в диапазоне [0, 100]

Программа рабочая, скорее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новую строку(окончание ln), и паскаль просто не видел никакие числа, кроме первого. и муторный и непонятный код, я переписал немножко: var   col, a: integer; begin   col : = 0; read(a);   while a < > 0 do   begin       read(a);       if (a mod 3 = 0) and (a mod 2 = 0) then           col : = col + 1;   end;   writeln('количество ', col); end. пример: 6 12 9 36 0 количество 3

Def implementetion(a,b)       a=to_bool(a)       b=to_bool(b)       return (not a or b) end def to_bool(s)       if s==true or s==false             return s       end       return s.to_i==0 ? false : true end k=0 for bin in 0.."111111".to_i(2)       s=("000000"+bin.to_s(2))[-       r=implementetion(implementetion(implementetion(implementetion(implementetion(s[0],s[1]),s[2]),s[3]),s[4]),s[5])       if r then             k+=1             p [s]       end end p k p 1+ 2+ 2**3+2**5