Delphi задача на циклический алгоритм

[Omge]

помогите решить условие в документе.
если не тяжело напишите пожалуйста всю программу!

[Aristarh Dark]

const
  n = 10;
var
  i,sum:integer;
begin
  sum:=0;
  for i:=1 to n do
    sum:=sum+sqr(n+1);
end.

[Omge]

Большущее спасибо!