Uses Crt;
Var a,i,n:longint;  
begin
wRITELN('Вводим кол-во цифр сумму цифр сумму которых вы которых вы вы хотите найти');
Readln(n);           
a:=0;
For i:=1 to n do
a:=a+sqr(i);       
Writeln(a);
Readkey;
End.