I. С использованием цикла "Пока".

Program Ex1; Var    A : Integer;    S : Longint; Begin

A:=1; S:=0; While A<=100 Do Begin

S:=S+A*A; A:=A+1

End; Writeln(S)

End.