написать программу дано натуральное число n. Вычеслить S＝1+4+9＋16+25+36+49

var n,i,s: integer;

begin

readln(n);

for i := 1 to n do s:=s+i*i;

writeln(s)

end.