eni1337 Var k, i, s: integer;
begin
for i:=1 to 10 do
   begin
      k:=sqr(i);
      s:=s + k;
   end;
writeln('Сумма чисел в квадрате = ', s);
end.