Составьте программу вычисляющую сумму квадратов всех чисел от 1 до n

спасибо:)

vara: Real;i,n: Integer;BeginWriteLn('Введите ваше ЭН'); ReadLn(n);a:=0; for i:=1 to n do a:= a + sqr(i);end;WriteLn('Сумма квадратов равна=',a);ReadLn;end.