Умоляю использую оператор for, напишите программу , вычисляющую сумму квадратов первых ста натуральных чисел

Var
  i,a:integer;
Begin
  for i:= 1 to 100 do
    a:=a+sqr(i);
  write('Сумма квадратов первых ста натуральных чисел равна ',a);
End.