Составить программу на вычисления суммы: 1^2+2^2+3^2++100^2.

Скорее всего 3 т.к. регистры это сверхбыстрая память внутри процессора

А что сделать надо? Исправить код? Держи. Вроде так.

var m, k, i; integer;
mas; array [1..10] of integer;
begin
mas[1]:=14; mas[2]:=-4; mas[3]=12;
mas [4]:=-6; mas[5]:=8; mas[6]:=-10; mas[7]:=-8; mas[8]:=-9; mas[9]:=6; mas[10]:=-5;
m:=0; k:=0
for i:=1 to 10 do
if (mas[i]<0) and (i mod 2=0) then k:=k+mas
if mas[i]<10 then m:=m+mas[i]
write(m)+(k)
end.

1) Лучше всех
2) к детской
3) веселый телеведущий Галкин и талантливые дети, с которых хочется брать пример
4) то чтобы брали детей до 18 лет! а так в программе усаствуют дети, даже подростки. а вот 17,18-летних я там не видел (а).

В  double d1,d2 добавить переменную суммы s
double d1,d2,s;
вместо  ???   записать    s=d1+d2;