Найти сумму квадратов всех натуральных чисел от 1 до 100

Друзья дарят подарки и открытки. Мы уходим на ланч И мой день рожденье, и мой день рожденье, и мой день рожденье в марте.Мэри: я грущу в свой день рождение Я получила открытки на свое день рождение Друзья не пришли на вечеринку в обед и мой день рожденье, и мой день рожденье, и мой день рожденье в Июне

Var i,n : Integer;Begin  n:=0;  For i:=1 to 100 do n:=n+sqr(i);  Writeln(n);end.Результат: 338350