Question

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

Answer 1

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