Напишите программу которая вычисляет сумму квадратов первых n натуральных чисел. по циклу

program gg;

var i,n,k,sum: integer;

a: array of integer[1..n];

begin

n: =10;

sum: =0;

readln(a[i]);

for i: =1 to n do

k: =a[i]*a[i];

sum: =sum+k;

writeln('summa=',sum);

end.

Простая. не знаю какие у вас там формулы и какими буквами что обозначается, так что попробую обьяснить на пальцах - каждый символ конкретного алфавита занимает определенный обьем/вес/меру в информации которая измеряется в битах - любой из символов данного/конкретного алфавита занимает одинаковое кол-во бит. т.е. каковы бы не были символы  -  их количество определяет их вес аналог . яблоки поштучно. известна цена за одно яблоко, не зависимо от того большое оно или маленькое, зеленое или красное, но стоят все одинаково. купили всего 130 яблок, и за покупку заплатили 650$ . сколько стоит одно яблоко? правильно. одно яблоко стоит 650/130 = 5$ 650 бит/ 130  = 5 бит на символ

program symma; var     k, i, s: integer; begin

    s: =0;         i: =1;     k: =0;     while k< =5  do         begin      if i mod 2=0 then        begin                                        s: =s+a;                                         k: =k+1;                                       end;           i: =i+1;   end;     writeln('s=',s);

end.