Выписать первые 20 чисел числового ряда в 4-ричной системе счисления.

1. var   k, sum, n, i: integer;   a: array of integer; begin   writeln('введите размерность массива: ');   readln(n);   setlength(a, n);   writeln('введите k: ');   readln(k);   writeln('введите ', n, ' элементов массива : ');   for i : = 0 to n - 1 do   begin     readln(a[i]);     if a[i] mod k = 0 then sum : = sum + a[i];   end;   writeln('результат: ', sum); end.2.var  c, k, n, i: integer;   b, a: array of integer; begin  k : = 1;   writeln('введите размерность массива: ');   readln(n);   setlength(a, n + 1);   writeln('введите ', n, ' элементов массива : ');   for i : = 1 to n do  begin    readln(a[i]);     if a[i] = 0 then      begin      inc(c);       setlength(b, c + 1);       b[k] : = i;       inc(k)    end;   end;   writeln('позиции нулевых элементов: ');   for i : = 1 to c do write(b[i]: 3); end.

Norton commander - файловый менеджер winrar - программа архивированияkeyboard.drv,  sound.drv, mouse.drv - драйвера устройств клавиатуры, аудио и мышки «1с предприятие» - программные продукты для автоматизации бухгалтерского и учётаmsword,  блокнот - текстовые редакторы msexcel - табличный редактор msaccess -  реляционная субд 3d studio - редактор трёхмерной графикиси,  basic,  pascal,  c+,  фортран,  foxpro - языки программирования linux,  windows7 - операционные системы adobephotoshop,  paint - графический редактор macromedia flash - медиа-плееркомпас 3d - сапр(система автоматизированного проектирования ) qip - интернет-пейджерavp  касперского,  drweb - антивирусная программа outlook express - почтовый клиент и органайзерhtml -  язык гипертекстовой разметки nero premium - программа записи дисков«консультант плюс» - справочная системаp.s. вроде всё описал, если нужны объяснения пишите