ПОМОГИТЕ! Посчитайте сумму по следующему правилу s= 0+1+2*2+3*3*3+4*4*4*4 (и так от 0 до 10). Составить программу паскаль

ОГРОМНОЕ СПАСИБО

 Var  s,i,j,a:integer;Begin  for i:= 1 to 3 do Begin    for j:= 1 to i do       a:=a*i;    s:=s+a;    a:=1;  End;  Write('Ответ ',s+1);End.