Паскаль. Найти сумму произведений последовательности чисел S:=1*1+2*2+3*3+4*4...n*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.