Найдите ошибку. запишите правильно код

Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичнуюполучается вот так: 21   = 10 1012=10 2002   = 11111010 010 в итоге: 10101.10.11111010010

№1 var a: array[1..20] of integer;   i,k: integer;   begin  k: =0;   writeln('введите числа');   for i: =1 to 20 do begin  read(a[i]);   if a[i]> 0 then k: =k+1;   end;   writeln('количество положительных чисел = ',k);   end. №2var a: array[1..20] of integer;   i,sum: integer;   begin  sum: =0;   writeln('введите оценки');   for i: =1 to 20 do begin  read(a[i]);   sum: =sum+a[i];   end;   writeln('среднее арифметическое этих оценок = ',sum/20);   end.