var n,s: integer;
begin
s:=0;
for n:=1 to 10 do s:=s+sqr(n);
writeln('сумма квадратов = ',s);
for n:=1 to 10 do s:=s+n;
writeln('квадрат cуммы = ',sqr(s));
readln
end.
var n,s: integer;
begin
s:=0;
for n:=1 to 10 do s:=s+sqr(n);
writeln('сумма квадратов = ',s);
s:=0;
for n:=1 to 10 do s:=s+n;
writeln('квадрат cуммы = ',sqr(s));
readln
end.