@.:: Discutiamo.com ::. @

program Tab;
Var

Function Sott1 (A:integer):real;

Var
Y :integer;
C:integer; //Contatore dei quadrati//
S:integer; //Somma dei quadrati //
M:real; //Media della somma dei quadrati //
Begin
C:=0;
S:=0;
FOR Y:=0 to A+1 do begin
Q:=Sott2(Y);
C:=C+1;
S:=S+Q
end;
M:=S/C
result:=M;


end;



Function Sott2(C:integer):integer;

F:integer; //Quadrati di Y//

Begin

F:=C*C;
result:=F;



end;




X: integer; //Valore della sequenza//
SG: integer; // Somma delle medie //
Z: integer; //Media dei quadrati //

Begin
REPEAT
Write('Inserire un valore della sequenza X: ');
Readln(X);
SG:=0;
IF X>0 THEN BEGIN

Z:=Sott1(X);
SG:=SG+Z;



END;

UNTIL X=0;
Write('La somma delle medie dei quadrati e'': ');
Writeln(SG);




end.