 Danusja13 
                                                23.07.2019 13:20
                                                
                                                Danusja13 
                                                23.07.2019 13:20
                                             arcadig01 
                                                23.07.2019 13:20
                                                
                                                arcadig01 
                                                23.07.2019 13:20
                                             olegmuslimov778 
                                                12.06.2019 06:20
                                                
                                                olegmuslimov778 
                                                12.06.2019 06:20
                                             svetlanakomarova2 
                                                12.06.2019 06:20
                                                
                                                svetlanakomarova2 
                                                12.06.2019 06:20
                                             МамаРодиМеняОбратно 
                                                12.06.2019 06:20
                                                
                                                МамаРодиМеняОбратно 
                                                12.06.2019 06:20
                                             Алимакдр 
                                                12.06.2019 06:20
                                                
                                                Алимакдр 
                                                12.06.2019 06:20
                                             ShipunovaDaria 
                                                12.06.2019 06:20
                                                
                                                ShipunovaDaria 
                                                12.06.2019 06:20
                                             оля2030 
                                                16.09.2019 11:50
                                                
                                                оля2030 
                                                16.09.2019 11:50
                                             46788643 
                                                11.09.2019 21:02
                                                
                                                46788643 
                                                11.09.2019 21:02
                                            
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
s,i,n:integer;
begin
i:=100;
s:=0;
For n := 1 to i do
begin
s:=s+i*i;
i:=i-1;
end;
writeln('Сумма квадратов целых чисел от 1 до 100 равна ',s);
end.