Найти среднее арифметическое квадратов всех целых чисел от единицы до ста

Begin      writeln ((1 + 100)/2); // сумма арифметической прогрессии / 100 end.

Var n,i,k: integer; begin write('n = '); readln(n); k: =0; case n of   3..9   : k: =1;   10..99 : begin            k: =1;           for i: =10 to n do              if (i mod 10 = 3)or(i div 10 = 3) then k: =k+1;           end;   100..999: begin           k: =1;           for i: =10 to 99 do              if (i mod 10 = 3)or(i div 10 = 3) then k: =k+1;           for i: =100 to n do             if (i div 100=3)or(i div 10 mod 10=3)or(i mod 10=3) then k: =k+1;           end; end; writeln('k = ',k); end. пример: n = 120 k = 21

Type massiv=array[1..100] of integer; var  a,b: massiv; n,i,j,p: integer; begin randomize; write('ввод n='); readln(n); writeln('нужно неубывание (1) или невозрастание (2)? '); readln(p); if p=2 then p: =-1;   writeln('массив: '); a[1]: =random(20)-5; for i: =2 to n do a[i]: =a[i-1]+p*random(5); write('('); for i: =1 to n do write(a[i],' '); write(')'); writeln; i: =1; j: =0; while i< n do   begin   if a[i]=a[i+1] then begin inc(j); b[j]: =a[i]; end;   while (i< n)and(a[i]=a[i+1]) do inc(i);   inc(i);   end; writeln('новый массив: '); for i: =1 to j do write(b[i]: 4); readkey end. пример: ввод n=20 нужно неубывание (1) или невозрастание (2)? 1 массив: (11 12 12 12 16 16 17 21 25 25 26 30 30 32 36 36 38 42 45 47 ) новый массив:   12   16   25   30   36