Паскаль. найти сумму произведений последовательности чисел s: =1*1+2*2+3*3+4**n. n введите с клавиатуры.

Program E05;
  uses crt;
    var
      n,S,i: integer;
begin
  clrscr;
  writeln('Введите n: ');
  readln(n);
    for i:=1 to n do
    S:=S+i*i;

  writeln('ответ: ',S);
end.